Fix eldoc docstring length warnings

This commit is contained in:
David Morgan 2022-05-18 14:06:19 +01:00
parent 8ac94b8fa8
commit 6a8748d142
2 changed files with 9 additions and 5 deletions

View File

@ -16,7 +16,8 @@ If a numeric prefix argument N is given, move forward N instances of char."
(defun goto-char-forward-repeat-last (arg)
"Move forward in line to char last used in a goto-char command.
If a C-u prefix argument is given, it is not restricted to the current line.
If a numeric prefix argument N is given, move forward N instances of the last used char."
If a numeric prefix argument N is given, move forward N instances of the last
used char."
(interactive "P")
(goto-char--move-forward arg))
@ -31,7 +32,8 @@ If a numeric prefix argument N is given, move back N instances of char."
(defun goto-char-backward-repeat-last (arg)
"Move backward in line to char last qused in a goto-char command.
If a C-u prefix argument is given, it is not restricted to the current line.
If a numeric prefix argument N is given, move back N instances of the last used char."
If a numeric prefix argument N is given, move back N instances of the last used
char."
(interactive "P")
(goto-char--move-backward arg))

View File

@ -76,7 +76,8 @@
:config
;; Based on jao-buffer-same-mode (https://jao.io/blog/2021-09-08-high-signal-to-noise-emacs-command.html)
(defun persp-switch-buffer-same-mode ()
"Switch to a buffer with the same major mode as the current buffer, respecting the current perspective."
"Switch to a buffer with the same major mode as the current buffer, respecting
the current perspective."
(interactive)
(let* ((mode major-mode)
(pred (lambda (b)
@ -84,7 +85,8 @@
(eq (buffer-local-value 'major-mode b) mode)))))
(pop-to-buffer (persp-read-buffer "Buffer: " nil t pred))))
(defun persp-previous-buffer-same-mode ()
"Switch to the previous buffer in the current perspective, with the same major mode as the current buffer (or do nothing)"
"Switch to the previous buffer in the current perspective, with the same major
mode as the current buffer (or do nothing)"
(interactive)
(let* ((persp-buffers (seq-filter 'persp-is-current-buffer (buffer-list)))
(mode major-mode)
@ -97,7 +99,7 @@
(when (not (seq-empty-p persp-buffers-in-mode))
(switch-to-buffer (car persp-buffers-in-mode)))))
(defun persp-current-project-root ()
"Return the current project root, falling back to finding it using the perpsective"
"Return the current project root, falling back to finding it by the perpsective"
(if-let (project (project-current))
(project-root project)
(when-let (persp (persp-name (persp-curr)))