diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2015-08-29 21:40:21 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2015-08-29 21:43:01 -0700 |
| commit | 001c7dd928238a196dff4166ad29141116ef6d1c (patch) | |
| tree | 00032c5e1001248c98d396d669d5a00571c4c8d4 /lisp/cedet/semantic/ia.el | |
| parent | 24ee55bfd4371e24a03db0fbd830ad5adac0ac4f (diff) | |
| download | emacs-001c7dd928238a196dff4166ad29141116ef6d1c.tar.gz | |
Text quoting fixes in cedet, emulation, emacs-lisp
* lisp/cedet/ede.el (ede-check-project-directory):
* lisp/cedet/semantic/analyze/debug.el:
(semantic-analyzer-debug-insert-include-summary):
* lisp/cedet/semantic/bovine/c.el (semantic-c-describe-environment):
* lisp/cedet/semantic/decorate/include.el:
(semantic-decoration-unknown-include-describe)
(semantic-decoration-all-include-summary):
* lisp/cedet/semantic/ia.el (semantic-ia-fast-jump):
* lisp/emulation/edt.el (edt-load-keys):
* lisp/emulation/viper-cmd.el:
(viper-display-current-destructive-command)
(viper-query-replace, viper-brac-function):
* lisp/emulation/viper-ex.el (viper-get-ex-token, ex-compile):
* lisp/emulation/viper-macs.el (viper-unrecord-kbd-macro):
Respect text quoting style in doc string or diagnostic.
* lisp/cedet/mode-local.el (describe-mode-local-overload):
Use format-message to avoid overtranslating quotes.
* lisp/emacs-lisp/checkdoc.el (checkdoc-in-sample-code-p):
Escape an apostrophe in a docstring.
* lisp/emacs-lisp/warnings.el (lwarn): Fix doc string.
Diffstat (limited to 'lisp/cedet/semantic/ia.el')
| -rw-r--r-- | lisp/cedet/semantic/ia.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/cedet/semantic/ia.el b/lisp/cedet/semantic/ia.el index 2216fa9e964..27e6db16f39 100644 --- a/lisp/cedet/semantic/ia.el +++ b/lisp/cedet/semantic/ia.el @@ -364,15 +364,17 @@ origin of the code at point." (let ((secondclass (car (reverse (oref ctxt prefixtypes))))) (cond ((and (semantic-tag-with-position-p secondclass) - (y-or-n-p (format "Could not find `%s'. Jump to %s? " - first (semantic-tag-name secondclass)))) + (y-or-n-p (format-message + "Could not find `%s'. Jump to %s? " + first (semantic-tag-name secondclass)))) (semantic-ia--fast-jump-helper secondclass) ) ;; If we missed out on the class of the second item, then ;; just visit SECOND. ((and (semantic-tag-p second) - (y-or-n-p (format "Could not find `%s'. Jump to %s? " - first (semantic-tag-name second)))) + (y-or-n-p (format-message + "Could not find `%s'. Jump to %s? " + first (semantic-tag-name second)))) (semantic-ia--fast-jump-helper second) )))) |