emacs: various comment improvements

This commit is contained in:
Jonas Bernoulli 2021-01-10 15:01:00 +01:00 committed by David Bremner
parent 16b2db0986
commit 65fc5ea758
3 changed files with 6 additions and 9 deletions

View file

@ -381,7 +381,7 @@ to be a saved address hash."
(defun notmuch-address--save-address-hash ()
(when notmuch-address-save-filename
(if (or (not (file-exists-p notmuch-address-save-filename))
;; The file exists, check it is a file we saved
;; The file exists, check it is a file we saved.
(notmuch-address--get-address-hash))
(with-temp-file notmuch-address-save-filename
(let ((save-plist
@ -404,8 +404,7 @@ appear to be an address savefile. Not overwriting."
nil nil
(lambda (_proc event)
;; If harvest fails, we want to try
;; again when the trigger is next
;; called
;; again when the trigger is next called.
(if (string= event "finished\n")
(progn
(notmuch-address--save-address-hash)

View file

@ -731,9 +731,7 @@ The screen may be customized via `\\[customize]'.
Complete list of currently available key bindings:
\\{notmuch-hello-mode-map}"
(setq notmuch-buffer-refresh-function #'notmuch-hello-update)
;;(setq buffer-read-only t)
)
(setq notmuch-buffer-refresh-function #'notmuch-hello-update))
;;; Inserters

View file

@ -247,7 +247,7 @@ displays both values separately."
(let* ((val (notmuch-command-to-string "config" "get" item))
(len (length val)))
;; Trim off the trailing newline (if the value is empty or not
;; configured, there will be no newline)
;; configured, there will be no newline).
(if (and (> len 0)
(= (aref val (- len 1)) ?\n))
(substring val 0 -1)
@ -483,8 +483,8 @@ be displayed."
;;; String Utilities
(defun notmuch-prettify-subject (subject)
;; This function is used by `notmuch-search-process-filter' which
;; requires that we not disrupt its' matching state.
;; This function is used by `notmuch-search-process-filter',
;; which requires that we not disrupt its matching state.
(save-match-data
(if (and subject
(string-match "^[ \t]*$" subject))