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

Fix some more docstring etc. quoting problems

Browse source 
Mostly these fixes prevent the transliteration of apostrophes
that should stay apostrophes.  Also, prefer curved quotes in
Bahá’í proper names, as that’s the preferred Bahá’í style and
these names are chock-full of non-ASCII characters anyway.
* lisp/emacs-lisp/eieio-core.el (eieio-defclass-autoload)
(eieio-defclass-internal):
* lisp/emacs-lisp/eieio.el (defclass):
* lisp/hi-lock.el (hi-lock-mode):
Don’t transliterate Lisp apostrophes when generating a
doc string or diagnostic.
* lisp/international/mule-diag.el (list-coding-systems-1):
* lisp/international/ogonek.el (ogonek-jak, ogonek-how):
* lisp/mail/sendmail.el (sendmail-query-user-about-smtp):
* lisp/vc/ediff-mult.el (ediff-redraw-registry-buffer):
* lisp/vc/ediff-ptch.el (ediff-fixup-patch-map):
Substitute quotes before putting them in the help buffer.
This commit is contained in:
Paul Eggert 2015-09-03 15:31:12 -07:00
parent 944d77f070
commit 26bd978d87
108 changed files with 389 additions and 382 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/emacs-lisp/eieio-core.el
View file

@ -219,7 +219,8 @@ It creates an autoload function for CNAME's constructor."
;; turn this into a usable self-pointing symbol
(when eieio-backward-compatibility
(set cname cname)
(make-obsolete-variable cname (format "use '%s instead" cname) "25.1"))
(make-obsolete-variable cname (format "use \\='%s instead" cname)
"25.1"))
;; Store the new class vector definition into the symbol. We need to
;; do this first so that we can call defmethod for the accessor.
@ -338,7 +339,8 @@ See `defclass' for more information."
;; turn this into a usable self-pointing symbol; FIXME: Why?
(when eieio-backward-compatibility
(set cname cname)
(make-obsolete-variable cname (format "use '%s instead" cname) "25.1"))
(make-obsolete-variable cname (format "use \\='%s instead" cname)
"25.1"))
;; Create a handy list of the class test too
(when eieio-backward-compatibility
@ -357,8 +359,9 @@ See `defclass' for more information."
(object-of-class-p (car obj) ,cname)))
(setq obj (cdr obj)))
ans))))
(make-obsolete csym (format "use (cl-typep ... '(list-of %s)) instead"
cname)
(make-obsolete csym (format
"use (cl-typep ... \\='(list-of %s)) instead"
cname)
"25.1")))
;; Before adding new slots, let's add all the methods and classes
@ -407,7 +410,7 @@ See `defclass' for more information."
(progn
(set initarg initarg)
(make-obsolete-variable
initarg (format "use '%s instead" initarg) "25.1"))))
initarg (format "use \\='%s instead" initarg) "25.1"))))
;; The customgroup should be a list of symbols.
(cond ((and (null customg) custom)