]> git.eshelyaron.com Git - emacs.git/commitdiff
Fix "\`" confusion in Lisp strings
authorPaul Eggert <eggert@cs.ucla.edu>
Sat, 15 Aug 2015 15:35:02 +0000 (08:35 -0700)
committerPaul Eggert <eggert@cs.ucla.edu>
Sat, 15 Aug 2015 15:35:36 +0000 (08:35 -0700)
* admin/authors.el (authors-canonical-author-name):
Fix typo by using "\\`" not "\`" in string RE.
* lisp/obsolete/complete.el (PC-complete-as-file-name):
* lisp/obsolete/vi.el (vi-backward-blank-delimited-word):
* lisp/progmodes/verilog-mode.el (verilog-mode-map):
Use plain "`", not the equivalent-but-confusing "\`", in strings.
* lisp/textmodes/texinfmt.el: Fix comment likewise.

admin/authors.el
lisp/obsolete/complete.el
lisp/obsolete/vi.el
lisp/progmodes/verilog-mode.el
lisp/textmodes/texinfmt.el

index c7ec3bcfdd6231a0d1cafadedde9002bb1ec8535..547e046a8d7e899cde2f3b1157baa685ee09b00b 100644 (file)
@@ -1154,7 +1154,7 @@ it is found in `authors-fixed-case'."
          (setq regexps (cdr regexps))))))
   (when author
     (setq author (replace-regexp-in-string "[ \t]*[(<].*$" "" author))
-    (setq author (replace-regexp-in-string "\`[ \t]+" "" author))
+    (setq author (replace-regexp-in-string "\\`[ \t]+" "" author))
     (setq author (replace-regexp-in-string "[ \t]+$" "" author))
     (setq author (replace-regexp-in-string "[ \t]+" " " author))
     (unless (string-match "[-, \t]" author)
index 7c7582f80d9a3039d819a93e82809f3627536ec2..87dedacbe1db50636801e1799ec0de329225a63e 100644 (file)
@@ -963,7 +963,7 @@ or properties are considered."
  Environment vars are converted to their values."
    (interactive)
    (let* ((end (point))
-          (beg (if (re-search-backward "[^\\][ \t\n\"\`\'][^ \t\n\"\`\']"
+          (beg (if (re-search-backward "[^\\][ \t\n\"`'][^ \t\n\"`']"
                                       (point-min) t)
                    (+ (point) 2)
                    (point-min)))
index fbdf7a1e920a2db8dc7d730c412217a3f7f8347f..c5dc0efd7068e1a1a08c0d817b142532461191b8 100644 (file)
@@ -1213,7 +1213,7 @@ SPECIAL FEATURE: char argument can be used to specify shift amount(1-9)."
 (defun vi-backward-blank-delimited-word (count)
   "Backward COUNT blank-delimited words."
   (interactive "p")
-  (if (re-search-backward "[ \t\n\`][^ \t\n\`]+" nil t count)
+  (if (re-search-backward "[ \t\n`][^ \t\n`]+" nil t count)
       (if (not (bobp)) (forward-char 1))))
 
 (defun vi-forward-blank-delimited-word (count)
index 4fc4b03688fe83d055fbc896add0f9c57cb854db..93572d9e64eb7b2133a5c1751d4f5dbbd9967d25 100644 (file)
@@ -1336,7 +1336,7 @@ If set will become buffer local.")
     (define-key map [(control 59)]    'electric-verilog-semi-with-comment)
     (define-key map ":"        'electric-verilog-colon)
     ;;(define-key map "="        'electric-verilog-equal)
-    (define-key map "\`"       'electric-verilog-tick)
+    (define-key map "`"        'electric-verilog-tick)
     (define-key map "\t"       'electric-verilog-tab)
     (define-key map "\r"       'electric-verilog-terminate-line)
     ;; backspace/delete key bindings
@@ -1350,9 +1350,9 @@ If set will become buffer local.")
     (define-key map "\M-\t"    'verilog-complete-word)
     (define-key map "\M-?"     'verilog-show-completions)
     ;; Note \C-c and letter are reserved for users
-    (define-key map "\C-c\`"   'verilog-lint-off)
-    (define-key map "\C-c\*"   'verilog-delete-auto-star-implicit)
-    (define-key map "\C-c\?"   'verilog-diff-auto)
+    (define-key map "\C-c`"    'verilog-lint-off)
+    (define-key map "\C-c*"    'verilog-delete-auto-star-implicit)
+    (define-key map "\C-c?"    'verilog-diff-auto)
     (define-key map "\C-c\C-r" 'verilog-label-be)
     (define-key map "\C-c\C-i" 'verilog-pretty-declarations)
     (define-key map "\C-c="    'verilog-pretty-expr)
index e1259ff94f61999a6fb9a3027197b28fd939c0d3..8e4a7e9186da780835b72209aea959c681bf4d53 100644 (file)
@@ -3127,7 +3127,7 @@ Default is to leave paragraph indentation as is."
 ;; (put '\` 'texinfo-format 'texinfo-format-grave-accent)
 ;; (defun texinfo-format-grave-accent ()
 ;;   (texinfo-discard-command)
-;;   (insert "\`"))
+;;   (insert "`"))
 ;;
 ;; @'              ==>    '         acute accent
 ;; (put '\' 'texinfo-format 'texinfo-format-acute-accent)