aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPaul Eggert2019-11-11 22:54:06 -0800
committerPaul Eggert2019-11-11 22:54:41 -0800
commit555f5f78f8f3de71431774fdabbabbcec7242727 (patch)
tree2d10b4dd90d82f10fa1faddeaf9f0513c9dfd1f6
parentc5fd4d373ed6d80b744951afe13e50070bff41cf (diff)
downloademacs-555f5f78f8f3de71431774fdabbabbcec7242727.tar.gz
emacs-555f5f78f8f3de71431774fdabbabbcec7242727.zip
Fix a few more minor quoting problems.
-rw-r--r--lisp/erc/erc-stamp.el2
-rw-r--r--lisp/gnus/nnmairix.el2
-rw-r--r--lisp/obsolete/vip.el2
-rw-r--r--lisp/progmodes/compile.el2
-rw-r--r--lisp/simple.el2
-rw-r--r--lisp/textmodes/remember.el2
6 files changed, 6 insertions, 6 deletions
diff --git a/lisp/erc/erc-stamp.el b/lisp/erc/erc-stamp.el
index 1ddb87ae86d..559f65c29bb 100644
--- a/lisp/erc/erc-stamp.el
+++ b/lisp/erc/erc-stamp.el
@@ -357,7 +357,7 @@ Return the empty string if FORMAT is nil."
357 ts) 357 ts)
358 "")) 358 ""))
359 359
360;; This function is used to munge `buffer-invisibility-spec to an 360;; This function is used to munge `buffer-invisibility-spec' to an
361;; appropriate value. Currently, it only handles timestamps, thus its 361;; appropriate value. Currently, it only handles timestamps, thus its
362;; location. If you add other features which affect invisibility, 362;; location. If you add other features which affect invisibility,
363;; please modify this function and move it to a more appropriate 363;; please modify this function and move it to a more appropriate
diff --git a/lisp/gnus/nnmairix.el b/lisp/gnus/nnmairix.el
index d0a38e17c8e..6e527a5a7af 100644
--- a/lisp/gnus/nnmairix.el
+++ b/lisp/gnus/nnmairix.el
@@ -1459,7 +1459,7 @@ group."
1459 (while (and allservers (not found)) 1459 (while (and allservers (not found))
1460 (setq mairixserver (gnus-server-to-method (car (pop allservers)))) 1460 (setq mairixserver (gnus-server-to-method (car (pop allservers))))
1461 ;; First we look if SERVER is the backend of current nnmairix server 1461 ;; First we look if SERVER is the backend of current nnmairix server
1462 (setq found (and (eq (cadr (assoc `nnmairix-backend mairixserver)) 1462 (setq found (and (eq (cadr (assoc 'nnmairix-backend mairixserver))
1463 (car server)) 1463 (car server))
1464 (string= (cadr (assoc 'nnmairix-backend-server mairixserver)) 1464 (string= (cadr (assoc 'nnmairix-backend-server mairixserver))
1465 (nth 1 server)))) 1465 (nth 1 server))))
diff --git a/lisp/obsolete/vip.el b/lisp/obsolete/vip.el
index 4d24e694a19..d4eac2a2e0a 100644
--- a/lisp/obsolete/vip.el
+++ b/lisp/obsolete/vip.el
@@ -2250,7 +2250,7 @@ a token has type \(command, address, end-mark\) and value."
2250 (forward-char 1) 2250 (forward-char 1)
2251 (cond ((looking-at "'") (setq ex-token nil)) 2251 (cond ((looking-at "'") (setq ex-token nil))
2252 ((looking-at "[a-z]") (setq ex-token (following-char))) 2252 ((looking-at "[a-z]") (setq ex-token (following-char)))
2253 (t (error "%s" "Marks are ' and a-z" ?'))) 2253 (t (error "%s" "Marks are ' and a-z")))
2254 (forward-char 1)) 2254 (forward-char 1))
2255 ((looking-at "\n") 2255 ((looking-at "\n")
2256 (setq ex-token-type "end-mark") 2256 (setq ex-token-type "end-mark")
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index f412dbcd546..5a3386f2279 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -1252,7 +1252,7 @@ FMTS is a list of format specs for transforming the file name.
1252 (unless file (setq file '("*unknown*"))) 1252 (unless file (setq file '("*unknown*")))
1253 (let* ((file-struct (compilation-get-file-structure file fmts)) 1253 (let* ((file-struct (compilation-get-file-structure file fmts))
1254 ;; Get first already existing marker (if any has one, all have one). 1254 ;; Get first already existing marker (if any has one, all have one).
1255 ;; Do this first, as the compilation-assq`s may create new nodes. 1255 ;; Do this first, as the compilation-assq's may create new nodes.
1256 (marker-line ; a line structure 1256 (marker-line ; a line structure
1257 (cadr (compilation--file-struct->loc-tree file-struct))) 1257 (cadr (compilation--file-struct->loc-tree file-struct)))
1258 (marker 1258 (marker
diff --git a/lisp/simple.el b/lisp/simple.el
index 47d4adb0fd6..872fb13237a 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -9065,7 +9065,7 @@ contains the list of implementations currently supported for this command."
9065 (unless (string-equal val "") 9065 (unless (string-equal val "")
9066 (when (null ,varimp-sym) 9066 (when (null ,varimp-sym)
9067 (message 9067 (message
9068 "Use C-u M-x %s RET`to select another implementation" 9068 "Use `C-u M-x %s RET' to select another implementation"
9069 ,command-name) 9069 ,command-name)
9070 (sit-for 3)) 9070 (sit-for 3))
9071 (customize-save-variable ',varimp-sym 9071 (customize-save-variable ',varimp-sym
diff --git a/lisp/textmodes/remember.el b/lisp/textmodes/remember.el
index 67ecd3ced81..56737571c48 100644
--- a/lisp/textmodes/remember.el
+++ b/lisp/textmodes/remember.el
@@ -148,7 +148,7 @@
148;; out, in the long run? Perhaps its because the time we save 148;; out, in the long run? Perhaps its because the time we save
149;; electronically in one way, we're losing electronically in another; 149;; electronically in one way, we're losing electronically in another;
150;; the tool should never dominate one's focus. As the mystic 150;; the tool should never dominate one's focus. As the mystic
151;; Faridu'd-Din `Attar wrote: "Be occupied as little as possible with 151;; Farīd ud-Dīn ʿAṭṭār wrote: "Be occupied as little as possible with
152;; things of the outer world but much with things of the inner world; 152;; things of the outer world but much with things of the inner world;
153;; then right action will overcome inaction." 153;; then right action will overcome inaction."
154;; 154;;