mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-09 07:40:39 -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)

3
lisp/emacs-lisp/eieio.el
View file

@ -235,7 +235,8 @@ This method is obsolete."
(let ((f (intern (format "%s-child-p" name))))
`((defalias ',f ',testsym2)
(make-obsolete
',f ,(format "use (cl-typep ... '%s) instead" name) "25.1"))))
',f ,(format "use (cl-typep ... \\='%s) instead" name)
"25.1"))))
;; When using typep, (typep OBJ 'myclass) returns t for objects which
;; are subclasses of myclass. For our predicates, however, it is

2
lisp/emacs-lisp/package.el
View file

@ -234,7 +234,7 @@ of it available such that:
This variable has three possible values:
nil: no packages are hidden;
archive: only criteria (a) is used;
`archive': only criteria (a) is used;
t: both criteria are used.
This variable has no effect if `package-menu--hide-packages' is

2
lisp/emacs-lisp/regexp-opt.el
View file

@ -92,7 +92,7 @@ is enclosed by at least one regexp grouping construct.
The returned regexp is typically more efficient than the equivalent regexp:
(let ((open (if PAREN \"\\\\(\" \"\")) (close (if PAREN \"\\\\)\" \"\")))
(concat open (mapconcat 'regexp-quote STRINGS \"\\\\|\") close))
(concat open (mapconcat \\='regexp-quote STRINGS \"\\\\|\") close))
If PAREN is `words', then the resulting regexp is additionally surrounded
by \\=\\< and \\>.