diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2015-09-03 15:31:12 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2015-09-03 15:32:54 -0700 |
| commit | 26bd978d87dfbf9baa115cd961a67d42b416c4bf (patch) | |
| tree | 20f3d063895796f54b9f521c0b35f65bbcd418c4 /lisp/cedet/semantic/analyze.el | |
| parent | 944d77f070da388b0c6e6578a9f868e88c088940 (diff) | |
| download | emacs-26bd978d87dfbf9baa115cd961a67d42b416c4bf.tar.gz | |
Fix some more docstring etc. quoting problems
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.
Diffstat (limited to 'lisp/cedet/semantic/analyze.el')
| -rw-r--r-- | lisp/cedet/semantic/analyze.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/cedet/semantic/analyze.el b/lisp/cedet/semantic/analyze.el index 7ff69771023..fe888f57767 100644 --- a/lisp/cedet/semantic/analyze.el +++ b/lisp/cedet/semantic/analyze.el @@ -251,7 +251,7 @@ are found in SEQUENCE. Optional argument THROWSYM specifies a symbol the throw on non-recoverable error. Remaining arguments FLAGS are additional flags to apply when searching. This function knows of flags: - 'mustbeclassvariable" + `mustbeclassvariable'" (let ((s sequence) ; copy of the sequence (tmp nil) ; tmp find variable (tag nil) ; tag return list @@ -263,7 +263,7 @@ This function knows of flags: ) ;; First order check. Is this wholly contained in the typecache? (setq tmp (semanticdb-typecache-find sequence)) - + (when tmp (if (or (not tagclass) (semantic-tag-of-class-p tmp tagclass)) ;; We are effectively done... @@ -709,7 +709,7 @@ Returns nil if no alias was found." (when (eq (semantic-tag-get-attribute (car taglist) :kind) 'alias) (let ((tagname (semantic-analyze-split-name - (semantic-tag-name + (semantic-tag-name (car (semantic-tag-get-attribute (car taglist) :members)))))) (append (if (listp tagname) tagname |