diff options
Diffstat (limited to 'lisp/cedet')
| -rw-r--r-- | lisp/cedet/mode-local.el | 17 | ||||
| -rw-r--r-- | lisp/cedet/srecode/texi.el | 2 |
2 files changed, 10 insertions, 9 deletions
diff --git a/lisp/cedet/mode-local.el b/lisp/cedet/mode-local.el index 3c176aeaf05..35363337aee 100644 --- a/lisp/cedet/mode-local.el +++ b/lisp/cedet/mode-local.el @@ -598,15 +598,16 @@ PROMPT, INITIAL, HIST, and DEFAULT are the same as for `completing-read'." (defun overload-docstring-extension (overload) "Return the doc string that augments the description of OVERLOAD." (let ((doc "\n\This function can be overloaded\ - with `define-mode-local-override'.") + with ‘define-mode-local-override’.") (sym (overload-obsoleted-by overload))) (when sym - (setq doc (format "%s\nIt has made the overload `%s' obsolete since %s." + (setq doc (format "%s\nIt has made the overload ‘%s’ obsolete since %s." doc sym (get sym 'overload-obsoleted-since)))) (setq sym (overload-that-obsolete overload)) (when sym - (setq doc (format "%s\nThis overload is obsolete since %s;\nUse `%s' instead." - doc (get overload 'overload-obsoleted-since) sym))) + (setq doc (format + "%s\nThis overload is obsolete since %s;\nuse ‘%s’ instead." + doc (get overload 'overload-obsoleted-since) sym))) doc)) (defun mode-local-augment-function-help (symbol) @@ -629,9 +630,9 @@ SYMBOL is a function that can be overridden." (defun mode-local-print-binding (symbol) "Print the SYMBOL binding." (let ((value (symbol-value symbol))) - (princ (format "\n `%s' value is\n " symbol)) + (princ (format "\n ‘%s’ value is\n " symbol)) (if (and value (symbolp value)) - (princ (format "`%s'" value)) + (princ (format "‘%s’" value)) (let ((pt (point))) (pp value) (save-excursion @@ -689,7 +690,7 @@ SYMBOL is a function that can be overridden." ) ((symbolp buffer-or-mode) (setq mode buffer-or-mode) - (princ (format "`%s'\n" buffer-or-mode)) + (princ (format "‘%s’\n" buffer-or-mode)) ) ((signal 'wrong-type-argument (list 'buffer-or-mode buffer-or-mode)))) @@ -699,7 +700,7 @@ SYMBOL is a function that can be overridden." (while mode (setq table (get mode 'mode-local-symbol-table)) (when table - (princ (format "\n- From `%s'\n" mode)) + (princ (format "\n- From ‘%s’\n" mode)) (mode-local-print-bindings table)) (setq mode (get-mode-local-parent mode))))) diff --git a/lisp/cedet/srecode/texi.el b/lisp/cedet/srecode/texi.el index be75f3765c1..b75a6609323 100644 --- a/lisp/cedet/srecode/texi.el +++ b/lisp/cedet/srecode/texi.el @@ -253,7 +253,7 @@ that class. [ stuff ] => @code{[ stuff ]} Key => @kbd{Key} (key is C\\-h, M\\-h, SPC, RET, TAB and the like) ... => @dots{}" - (while (string-match "`\\([-a-zA-Z0-9<>.]+\\)'" string) + (while (string-match "[`‘]\\([-a-zA-Z0-9<>.]+\\)['’]" string) (let* ((vs (substring string (match-beginning 1) (match-end 1))) (v (intern-soft vs))) (setq string |