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/ede.el | |
| parent | 24ee55bfd4371e24a03db0fbd830ad5adac0ac4f (diff) | |
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/ede.el')
| -rw-r--r-- | lisp/cedet/ede.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/cedet/ede.el b/lisp/cedet/ede.el index 3b06cf792d2..7d99b179112 100644 --- a/lisp/cedet/ede.el +++ b/lisp/cedet/ede.el @@ -512,7 +512,7 @@ Sets buffer local variables for EDE." (when projdetect ;; No project was loaded, but we have a project description ;; object. This means that we try to load it. - ;; + ;; ;; Before loading, we need to check if it is a safe ;; project to load before requesting it to be loaded. @@ -728,9 +728,10 @@ Return nil if DIR should not be in `ede-project-directories'." (when (listp ede-project-directories) (or (member dir ede-project-directories) (when (funcall ede-check-project-query-fcn - (format "`%s' is not listed in `ede-project-directories'. + (format-message + "`%s' is not listed in `ede-project-directories'. Add it to the list of allowed project directories? " - dir)) + dir)) (push dir ede-project-directories) ;; If possible, save `ede-project-directories'. (if (or custom-file user-init-file) @@ -799,7 +800,7 @@ Optional argument NAME is the name to give this project." "Unknown file name specifier %S" pf))) :targets nil) - + )) (inits (oref obj initializers))) ;; Force the name to match for new objects. |