>From 2e5897331af24753588f484317f767ee62a30837 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Mon, 11 Nov 2019 22:54:06 -0800 Subject: [PATCH] Fix a few more minor quoting problems. --- lisp/erc/erc-stamp.el | 2 +- lisp/gnus/nnmairix.el | 2 +- lisp/obsolete/vip.el | 2 +- lisp/progmodes/compile.el | 2 +- lisp/simple.el | 2 +- lisp/textmodes/remember.el | 2 +- 6 files changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/erc/erc-stamp.el b/lisp/erc/erc-stamp.el index 1ddb87ae86..559f65c29b 100644 --- a/lisp/erc/erc-stamp.el +++ b/lisp/erc/erc-stamp.el @@ -357,7 +357,7 @@ erc-format-timestamp ts) "")) -;; This function is used to munge `buffer-invisibility-spec to an +;; This function is used to munge `buffer-invisibility-spec' to an ;; appropriate value. Currently, it only handles timestamps, thus its ;; location. If you add other features which affect invisibility, ;; please modify this function and move it to a more appropriate diff --git a/lisp/gnus/nnmairix.el b/lisp/gnus/nnmairix.el index d0a38e17c8..6e527a5a7a 100644 --- a/lisp/gnus/nnmairix.el +++ b/lisp/gnus/nnmairix.el @@ -1459,7 +1459,7 @@ nnmairix-backend-to-server (while (and allservers (not found)) (setq mairixserver (gnus-server-to-method (car (pop allservers)))) ;; First we look if SERVER is the backend of current nnmairix server - (setq found (and (eq (cadr (assoc `nnmairix-backend mairixserver)) + (setq found (and (eq (cadr (assoc 'nnmairix-backend mairixserver)) (car server)) (string= (cadr (assoc 'nnmairix-backend-server mairixserver)) (nth 1 server)))) diff --git a/lisp/obsolete/vip.el b/lisp/obsolete/vip.el index 4d24e694a1..d4eac2a2e0 100644 --- a/lisp/obsolete/vip.el +++ b/lisp/obsolete/vip.el @@ -2250,7 +2250,7 @@ vip-get-ex-token (forward-char 1) (cond ((looking-at "'") (setq ex-token nil)) ((looking-at "[a-z]") (setq ex-token (following-char))) - (t (error "%s" "Marks are ' and a-z" ?'))) + (t (error "%s" "Marks are ' and a-z"))) (forward-char 1)) ((looking-at "\n") (setq ex-token-type "end-mark") diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index f412dbcd54..5a3386f227 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -1252,7 +1252,7 @@ compilation-internal-error-properties (unless file (setq file '("*unknown*"))) (let* ((file-struct (compilation-get-file-structure file fmts)) ;; Get first already existing marker (if any has one, all have one). - ;; Do this first, as the compilation-assq`s may create new nodes. + ;; Do this first, as the compilation-assq's may create new nodes. (marker-line ; a line structure (cadr (compilation--file-struct->loc-tree file-struct))) (marker diff --git a/lisp/simple.el b/lisp/simple.el index 47d4adb0fd..872fb13237 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -9065,7 +9065,7 @@ define-alternatives (unless (string-equal val "") (when (null ,varimp-sym) (message - "Use C-u M-x %s RET`to select another implementation" + "Use `C-u M-x %s RET' to select another implementation" ,command-name) (sit-for 3)) (customize-save-variable ',varimp-sym diff --git a/lisp/textmodes/remember.el b/lisp/textmodes/remember.el index 67ecd3ced8..56737571c4 100644 --- a/lisp/textmodes/remember.el +++ b/lisp/textmodes/remember.el @@ -148,7 +148,7 @@ ;; out, in the long run? Perhaps its because the time we save ;; electronically in one way, we're losing electronically in another; ;; the tool should never dominate one's focus. As the mystic -;; Faridu'd-Din `Attar wrote: "Be occupied as little as possible with +;; Farīd ud-Dīn ʿAṭṭār wrote: "Be occupied as little as possible with ;; things of the outer world but much with things of the inner world; ;; then right action will overcome inaction." ;; -- 2.17.1