mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Text quoting fixes in cedet, emulation, emacs-lisp

Browse source 
* 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.
This commit is contained in:
Paul Eggert 2015-08-29 21:40:21 -07:00
parent 24ee55bfd4
commit 001c7dd928
12 changed files with 56 additions and 45 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/emulation/viper-cmd.el
View file

@ -1751,8 +1751,8 @@ invokes the command before that, etc."
(setq this-command 'viper-display-current-destructive-command)
(message " `.' runs %s%s"
(concat "`" (viper-array-to-string keys) "'")
(message " `.' runs `%s'%s"
(viper-array-to-string keys)
(viper-abbreviate-string
(if (featurep 'xemacs)
(replace-in-string ; xemacs
@ -1763,7 +1763,8 @@ invokes the command before that, etc."
text ; emacs
)
max-text-len
" inserting `" "'" " ......."))
(format-message " inserting `") (format-message "'")
" ......."))
))
@ -4341,7 +4342,7 @@ and regexp replace."
(query-replace-regexp
str
(viper-read-string-with-history
(format "Query replace regexp `%s' with: " str)
(format-message "Query replace regexp `%s' with: " str)
nil ; no initial
'viper-replace1-history
(car viper-replace1-history) ; default
@ -4349,7 +4350,7 @@ and regexp replace."
(query-replace
str
(viper-read-string-with-history
(format "Query replace `%s' with: " str)
(format-message "Query replace `%s' with: " str)
nil ; no initial
'viper-replace1-history
(car viper-replace1-history) ; default
@ -4643,7 +4644,7 @@ One can use \\=`\\=` and \\='\\=' to temporarily jump 1 step back."
reg (buffer-name buf) line-no))
(princ (format "Here is some text around %c:\n\n %s"
reg text)))
(princ (format viper-EmptyTextmarker reg))))
(princ (format-message viper-EmptyTextmarker reg))))
))
(t (error viper-InvalidTextmarker reg)))))