[Emacs-diffs] master 1ba0149 1/2: Fix curved quotes in a few places

[Paul Eggert]

branch: master
commit 1ba0149572ff9841c4838a25358ef08a516976db
Author: Paul Eggert <address@hidden>
Commit: Paul Eggert <address@hidden>

    Fix curved quotes in a few places
    
    * lisp/calc/calc-misc.el (calc-help): Fix quoting.
    The strings in question are not doc strings, so this partially
    undoes the recent change that assumed they were doc strings.
    * lisp/cedet/srecode/srt-mode.el (srecode-macro-help):
    * lisp/info.el (Info-finder-find-node):
    Use curved quotes.
    * lisp/emacs-lisp/derived.el (derived-mode-make-docstring):
    Also allow curved quotes in doc strings.
---
 lisp/calc/calc-misc.el         |    4 ++--
 lisp/cedet/srecode/srt-mode.el |    4 ++--
 lisp/emacs-lisp/derived.el     |    3 ++-
 lisp/info.el                   |    4 ++--
 4 files changed, 8 insertions(+), 7 deletions(-)

diff --git a/lisp/calc/calc-misc.el b/lisp/calc/calc-misc.el
index 60c6fb9..5d5f4ce 100644
--- a/lisp/calc/calc-misc.el
+++ b/lisp/calc/calc-misc.el
@@ -217,7 +217,7 @@ Calc user interface as before (either C-x * C or C-x * K; 
initially C-x * C).
 (defun calc-help ()
   (interactive)
   (let ((msgs
-        '("Press `h' for complete help; press `?' repeatedly for a summary"
+        '("Press ‘h’ for complete help; press ‘?’ repeatedly for a summary"
           "Letter keys: Negate; Precision; Yank; Why; Xtended cmd; Quit"
           "Letter keys: SHIFT + Undo, reDo; Inverse, Hyperbolic, Option"
           "Letter keys: SHIFT + sQrt; Sin, Cos, Tan; Exp, Ln, logB"
@@ -225,7 +225,7 @@ Calc user interface as before (either C-x * C or C-x * K; 
initially C-x * C).
           "Letter keys: SHIFT + Num-eval; More-recn; eXec-kbd-macro; Keep-args"
           "Other keys: +, -, *, /, ^, \\ (int div), : (frac div)"
           "Other keys: & (1/x), | (concat), % (modulo), ! (factorial)"
-          "Other keys: ' (alg-entry), = (eval), \\=` (edit); M-RET (last-args)"
+          "Other keys: ' (alg-entry), = (eval), ` (edit); M-RET (last-args)"
           "Other keys: SPC/RET (enter/dup), LFD (over); < > (scroll horiz)"
           "Other keys: DEL (drop), M-DEL (drop-above); { } (scroll vert)"
           "Other keys: TAB (swap/roll-dn), M-TAB (roll-up)"
diff --git a/lisp/cedet/srecode/srt-mode.el b/lisp/cedet/srecode/srt-mode.el
index 79672ec..fbc5635 100644
--- a/lisp/cedet/srecode/srt-mode.el
+++ b/lisp/cedet/srecode/srt-mode.el
@@ -258,9 +258,9 @@ we can tell font lock about them.")
            (when (class-abstract-p C)
              (throw 'skip nil))
 
-           (princ "`")
+           (princ "‘")
            (princ name)
-           (princ "'")
+           (princ "’")
            (when (slot-exists-p C 'key)
              (when key
                (princ " - Character Key: ")
diff --git a/lisp/emacs-lisp/derived.el b/lisp/emacs-lisp/derived.el
index 52da4c9..75bd325 100644
--- a/lisp/emacs-lisp/derived.el
+++ b/lisp/emacs-lisp/derived.el
@@ -331,7 +331,8 @@ which more-or-less shadow%s %s's corresponding table%s."
                        "\n\nThis mode "
                      (concat
                       "\n\nIn addition to any hooks its parent mode "
-                      (if (string-match (regexp-quote (format "`%s'" parent))
+                      (if (string-match (regexp-quote (format "[`‘]%s['’]"
+                                                               parent))
                                         docstring) nil
                         (format "`%s' " parent))
                       "might have run,\nthis mode "))
diff --git a/lisp/info.el b/lisp/info.el
index 59ce465..9602337 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -3707,7 +3707,7 @@ Build a menu of the possible matches."
     (insert "Finder Packages\n")
     (insert "***************\n\n")
     (insert
-     "The following packages match the keyword `" nodename "':\n\n")
+     "The following packages match the keyword ‘" nodename "’:\n\n")
     (insert "* Menu:\n\n")
     (let ((keywords
           (mapcar #'intern (if (string-match-p "," nodename)
@@ -3734,7 +3734,7 @@ Build a menu of the possible matches."
     (insert "Package Description\n")
     (insert "*******************\n\n")
     (insert
-     "Description of the package `" nodename "':\n\n")
+     "Description of the package ‘" nodename "’:\n\n")
     ;; This assumes that a file named package.el exists,
     ;; which is not always true.  E.g. for the nxml package,
     ;; there is no "nxml.el" (it's nxml-mode.el).