Commit 1ba01495 authored by Paul Eggert's avatar Paul Eggert

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.
parent 8fb6253c
......@@ -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)"
......
......@@ -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: ")
......
......@@ -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 "))
......
......@@ -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).
......
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