Fix a few more minor quoting problems.
authorPaul Eggert <eggert@cs.ucla.edu>
Tue, 12 Nov 2019 06:54:06 +0000 (22:54 -0800)
committerPaul Eggert <eggert@cs.ucla.edu>
Tue, 12 Nov 2019 06:54:41 +0000 (22:54 -0800)
lisp/erc/erc-stamp.el
lisp/gnus/nnmairix.el
lisp/obsolete/vip.el
lisp/progmodes/compile.el
lisp/simple.el
lisp/textmodes/remember.el

index 1ddb87ae86d1a0aa188b1864dc55d99b7a92cd19..559f65c29bbffbde9a9030d7f7d7bfa34e522b46 100644 (file)
@@ -357,7 +357,7 @@ Return the empty string if FORMAT is nil."
        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
index d0a38e17c8ed5f215c63090a50394a4b4b19e37f..6e527a5a7af55f773b43771a3af8868ee80c9bc3 100644 (file)
@@ -1459,7 +1459,7 @@ group."
          (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))))
index 4d24e694a19569365aa33b3a241b91cca372b118..d4eac2a2e0a6ddcf8f6bfe1b8bba925bfd993046 100644 (file)
@@ -2250,7 +2250,7 @@ a token has type \(command, address, end-mark\) and value."
           (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")
index f412dbcd546f1cc2c029bb8b90d6f8a39ffbcfe3..5a3386f22793c0edeed585688cc6c718a2a63e1d 100644 (file)
@@ -1252,7 +1252,7 @@ FMTS is a list of format specs for transforming the file name.
   (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
index 47d4adb0fd6a9857bc117fb641a93f7cb9c3b365..872fb13237a3e6fd22c53c43b2ca3265f673c811 100644 (file)
@@ -9065,7 +9065,7 @@ contains the list of implementations currently supported for this command."
              (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
index 67ecd3ced81664cace4649f4a7f90751f6d177b2..56737571c48a87d16e90d36c880e8b486b626d7d 100644 (file)
 ;; 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."
 ;;