jessieh/mood-line
jessieh/mood-line
1
Fork 1
Code Issues 4 Pull Requests Releases Activity

Make checkdoc happy

Browse Source
This commit is contained in:
Jessie Hildebrandt 2022-12-19 23:38:36 -05:00
parent a4076c7eaa
commit df40e0e29d
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
mood-line.el
View File

@ -78,12 +78,12 @@
:type 'boolean) :type 'boolean)
(defcustom mood-line-show-encoding-information nil (defcustom mood-line-show-encoding-information nil
"If t, the encoding format of the current buffer will be displayed in the mode-line." "If t, display encoding format of the active buffer in the mode-line."
:group 'mood-line :group 'mood-line
:type 'boolean) :type 'boolean)
(defcustom mood-line-show-cursor-point nil (defcustom mood-line-show-cursor-point nil
"If t, the value of `point' will be displayed next to the cursor position in the mode-line." "If t, display value of `point' next to cursor position in the mode-line."
:group 'mood-line :group 'mood-line
:type 'boolean) :type 'boolean)
@ -153,7 +153,7 @@
(mood-line--string-trim-left (mood-line--string-trim-right string))) (mood-line--string-trim-left (mood-line--string-trim-right string)))
(defun mood-line--format (left right) (defun mood-line--format (left right)
"Return a string of `window-width' length containing LEFT and RIGHT, aligned respectively." "Return string of `window-width' length with contents LEFT and RIGHT aligned."
(let ((reserve (length right))) (let ((reserve (length right)))
(concat left (concat left
" " " "
@ -288,7 +288,7 @@
mood-line--flycheck-text) mood-line--flycheck-text)
(defun mood-line-segment-flymake () (defun mood-line-segment-flymake ()
"Displays information about the current status of flymake in the mode-line (if available)." "Display the current status of flymake in the mode-line (if available)."
(when (and (boundp 'flymake-mode) flymake-mode) (when (and (boundp 'flymake-mode) flymake-mode)
;; Depending on Emacs version, flymake stores the mode-line segment using one of two variable names ;; Depending on Emacs version, flymake stores the mode-line segment using one of two variable names
(let ((flymake-segment-format (if (boundp 'flymake-mode-line-format) (let ((flymake-segment-format (if (boundp 'flymake-mode-line-format)