diff options
| author | Paul Eggert | 2019-11-11 22:54:06 -0800 |
|---|---|---|
| committer | Paul Eggert | 2019-11-11 22:54:41 -0800 |
| commit | 555f5f78f8f3de71431774fdabbabbcec7242727 (patch) | |
| tree | 2d10b4dd90d82f10fa1faddeaf9f0513c9dfd1f6 | |
| parent | c5fd4d373ed6d80b744951afe13e50070bff41cf (diff) | |
| download | emacs-555f5f78f8f3de71431774fdabbabbcec7242727.tar.gz emacs-555f5f78f8f3de71431774fdabbabbcec7242727.zip | |
Fix a few more minor quoting problems.
| -rw-r--r-- | lisp/erc/erc-stamp.el | 2 | ||||
| -rw-r--r-- | lisp/gnus/nnmairix.el | 2 | ||||
| -rw-r--r-- | lisp/obsolete/vip.el | 2 | ||||
| -rw-r--r-- | lisp/progmodes/compile.el | 2 | ||||
| -rw-r--r-- | lisp/simple.el | 2 | ||||
| -rw-r--r-- | 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 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 | ;; |