Commit 555f5f78 authored by Paul Eggert's avatar Paul Eggert

Fix a few more minor quoting problems.

parent c5fd4d37
Pipeline #4013 failed with stage
in 60 minutes and 16 seconds
...@@ -357,7 +357,7 @@ Return the empty string if FORMAT is nil." ...@@ -357,7 +357,7 @@ Return the empty string if FORMAT is nil."
ts) 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 ;; appropriate value. Currently, it only handles timestamps, thus its
;; location. If you add other features which affect invisibility, ;; location. If you add other features which affect invisibility,
;; please modify this function and move it to a more appropriate ;; please modify this function and move it to a more appropriate
......
...@@ -1459,7 +1459,7 @@ group." ...@@ -1459,7 +1459,7 @@ group."
(while (and allservers (not found)) (while (and allservers (not found))
(setq mairixserver (gnus-server-to-method (car (pop allservers)))) (setq mairixserver (gnus-server-to-method (car (pop allservers))))
;; First we look if SERVER is the backend of current nnmairix server ;; 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)) (car server))
(string= (cadr (assoc 'nnmairix-backend-server mairixserver)) (string= (cadr (assoc 'nnmairix-backend-server mairixserver))
(nth 1 server)))) (nth 1 server))))
......
...@@ -2250,7 +2250,7 @@ a token has type \(command, address, end-mark\) and value." ...@@ -2250,7 +2250,7 @@ a token has type \(command, address, end-mark\) and value."
(forward-char 1) (forward-char 1)
(cond ((looking-at "'") (setq ex-token nil)) (cond ((looking-at "'") (setq ex-token nil))
((looking-at "[a-z]") (setq ex-token (following-char))) ((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)) (forward-char 1))
((looking-at "\n") ((looking-at "\n")
(setq ex-token-type "end-mark") (setq ex-token-type "end-mark")
......
...@@ -1252,7 +1252,7 @@ FMTS is a list of format specs for transforming the file name. ...@@ -1252,7 +1252,7 @@ FMTS is a list of format specs for transforming the file name.
(unless file (setq file '("*unknown*"))) (unless file (setq file '("*unknown*")))
(let* ((file-struct (compilation-get-file-structure file fmts)) (let* ((file-struct (compilation-get-file-structure file fmts))
;; Get first already existing marker (if any has one, all have one). ;; 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 (marker-line ; a line structure
(cadr (compilation--file-struct->loc-tree file-struct))) (cadr (compilation--file-struct->loc-tree file-struct)))
(marker (marker
......
...@@ -9065,7 +9065,7 @@ contains the list of implementations currently supported for this command." ...@@ -9065,7 +9065,7 @@ contains the list of implementations currently supported for this command."
(unless (string-equal val "") (unless (string-equal val "")
(when (null ,varimp-sym) (when (null ,varimp-sym)
(message (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) ,command-name)
(sit-for 3)) (sit-for 3))
(customize-save-variable ',varimp-sym (customize-save-variable ',varimp-sym
......
...@@ -148,7 +148,7 @@ ...@@ -148,7 +148,7 @@
;; out, in the long run? Perhaps its because the time we save ;; out, in the long run? Perhaps its because the time we save
;; electronically in one way, we're losing electronically in another; ;; electronically in one way, we're losing electronically in another;
;; the tool should never dominate one's focus. As the mystic ;; 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; ;; things of the outer world but much with things of the inner world;
;; then right action will overcome inaction." ;; then right action will overcome inaction."
;; ;;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment