aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/cedet/semantic
diff options
context:
space:
mode:
authorPaul Eggert2015-09-03 15:31:12 -0700
committerPaul Eggert2015-09-03 15:32:54 -0700
commit26bd978d87dfbf9baa115cd961a67d42b416c4bf (patch)
tree20f3d063895796f54b9f521c0b35f65bbcd418c4 /lisp/cedet/semantic
parent944d77f070da388b0c6e6578a9f868e88c088940 (diff)
downloademacs-26bd978d87dfbf9baa115cd961a67d42b416c4bf.tar.gz
emacs-26bd978d87dfbf9baa115cd961a67d42b416c4bf.zip
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')
-rw-r--r--lisp/cedet/semantic/analyze.el6
-rw-r--r--lisp/cedet/semantic/analyze/complete.el6
-rw-r--r--lisp/cedet/semantic/bovine/gcc.el6
-rw-r--r--lisp/cedet/semantic/db-find.el2
-rw-r--r--lisp/cedet/semantic/decorate/include.el2
-rw-r--r--lisp/cedet/semantic/fw.el8
-rw-r--r--lisp/cedet/semantic/tag-ls.el10
-rw-r--r--lisp/cedet/semantic/wisent/javascript.el12
8 files changed, 26 insertions, 26 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.
251Optional argument THROWSYM specifies a symbol the throw on non-recoverable error. 251Optional argument THROWSYM specifies a symbol the throw on non-recoverable error.
252Remaining arguments FLAGS are additional flags to apply when searching. 252Remaining arguments FLAGS are additional flags to apply when searching.
253This function knows of flags: 253This function knows of flags:
254 'mustbeclassvariable" 254 `mustbeclassvariable'"
255 (let ((s sequence) ; copy of the sequence 255 (let ((s sequence) ; copy of the sequence
256 (tmp nil) ; tmp find variable 256 (tmp nil) ; tmp find variable
257 (tag nil) ; tag return list 257 (tag nil) ; tag return list
@@ -263,7 +263,7 @@ This function knows of flags:
263 ) 263 )
264 ;; First order check. Is this wholly contained in the typecache? 264 ;; First order check. Is this wholly contained in the typecache?
265 (setq tmp (semanticdb-typecache-find sequence)) 265 (setq tmp (semanticdb-typecache-find sequence))
266 266
267 (when tmp 267 (when tmp
268 (if (or (not tagclass) (semantic-tag-of-class-p tmp tagclass)) 268 (if (or (not tagclass) (semantic-tag-of-class-p tmp tagclass))
269 ;; We are effectively done... 269 ;; We are effectively done...
@@ -709,7 +709,7 @@ Returns nil if no alias was found."
709 (when (eq (semantic-tag-get-attribute (car taglist) :kind) 'alias) 709 (when (eq (semantic-tag-get-attribute (car taglist) :kind) 'alias)
710 (let ((tagname 710 (let ((tagname
711 (semantic-analyze-split-name 711 (semantic-analyze-split-name
712 (semantic-tag-name 712 (semantic-tag-name
713 (car (semantic-tag-get-attribute (car taglist) :members)))))) 713 (car (semantic-tag-get-attribute (car taglist) :members))))))
714 (append (if (listp tagname) 714 (append (if (listp tagname)
715 tagname 715 tagname
diff --git a/lisp/cedet/semantic/analyze/complete.el b/lisp/cedet/semantic/analyze/complete.el
index c47b57336c5..680a0ae65bd 100644
--- a/lisp/cedet/semantic/analyze/complete.el
+++ b/lisp/cedet/semantic/analyze/complete.el
@@ -112,9 +112,9 @@ in a buffer."
112Argument CONTEXT is an object specifying the locally derived context. 112Argument CONTEXT is an object specifying the locally derived context.
113The optional argument FLAGS changes which return options are returned. 113The optional argument FLAGS changes which return options are returned.
114FLAGS can be any number of: 114FLAGS can be any number of:
115 'no-tc - do not apply data-type constraint. 115 `no-tc' - do not apply data-type constraint.
116 'no-longprefix - ignore long multi-symbol prefixes. 116 `no-longprefix' - ignore long multi-symbol prefixes.
117 'no-unique - do not apply unique by name filtering." 117 `no-unique' - do not apply unique by name filtering."
118 (let* ((a context) 118 (let* ((a context)
119 (desired-type (semantic-analyze-type-constraint a)) 119 (desired-type (semantic-analyze-type-constraint a))
120 (desired-class (oref a prefixclass)) 120 (desired-class (oref a prefixclass))
diff --git a/lisp/cedet/semantic/bovine/gcc.el b/lisp/cedet/semantic/bovine/gcc.el
index fe7a14451f5..1d3f7730f35 100644
--- a/lisp/cedet/semantic/bovine/gcc.el
+++ b/lisp/cedet/semantic/bovine/gcc.el
@@ -137,9 +137,9 @@ to give to the program."
137 "The GCC setup data. 137 "The GCC setup data.
138This is setup by `semantic-gcc-setup'. 138This is setup by `semantic-gcc-setup'.
139This is an alist, and should include keys of: 139This is an alist, and should include keys of:
140 'version - the version of gcc 140 `version' - the version of gcc
141 '--host - the host symbol (used in include directories) 141 `--host' - the host symbol (used in include directories)
142 '--prefix - where GCC was installed. 142 `--prefix' - where GCC was installed.
143It should also include other symbols GCC was compiled with.") 143It should also include other symbols GCC was compiled with.")
144 144
145;;;###autoload 145;;;###autoload
diff --git a/lisp/cedet/semantic/db-find.el b/lisp/cedet/semantic/db-find.el
index ff3431a17cf..293f535d60b 100644
--- a/lisp/cedet/semantic/db-find.el
+++ b/lisp/cedet/semantic/db-find.el
@@ -297,7 +297,7 @@ refreshed when things change. See `semanticdb-ref-test'.
297Note for overloading: If you opt to overload this function for your 297Note for overloading: If you opt to overload this function for your
298major mode, and your routine takes a long time, be sure to call 298major mode, and your routine takes a long time, be sure to call
299 299
300 (semantic-throw-on-input 'your-symbol-here) 300 (semantic-throw-on-input \\='your-symbol-here)
301 301
302so that it can be called from the idle work handler." 302so that it can be called from the idle work handler."
303 ) 303 )
diff --git a/lisp/cedet/semantic/decorate/include.el b/lisp/cedet/semantic/decorate/include.el
index 962dc49da54..1974e0ade07 100644
--- a/lisp/cedet/semantic/decorate/include.el
+++ b/lisp/cedet/semantic/decorate/include.el
@@ -540,7 +540,7 @@ For C/C++ includes located within a project, you can use a special
540EDE project that will wrap an existing build system. You can do that 540EDE project that will wrap an existing build system. You can do that
541like this in your .emacs file: 541like this in your .emacs file:
542 542
543 (ede-cpp-root-project \"NAME\" :file \"FILENAME\" :locate-fcn 'MYFCN) 543 (ede-cpp-root-project \"NAME\" :file \"FILENAME\" :locate-fcn \\='MYFCN)
544 544
545See the CEDET manual, the EDE manual, or the commentary in 545See the CEDET manual, the EDE manual, or the commentary in
546ede/cpp-root.el for more. 546ede/cpp-root.el for more.
diff --git a/lisp/cedet/semantic/fw.el b/lisp/cedet/semantic/fw.el
index 0e81b2c0ba5..d8ba6f275f3 100644
--- a/lisp/cedet/semantic/fw.el
+++ b/lisp/cedet/semantic/fw.el
@@ -173,10 +173,10 @@ recover the cached data with `semantic-get-cache-data'.
173LIFESPAN indicates how long the data cache will be remembered. 173LIFESPAN indicates how long the data cache will be remembered.
174The default LIFESPAN is 'end-of-command. 174The default LIFESPAN is 'end-of-command.
175Possible Lifespans are: 175Possible Lifespans are:
176 'end-of-command - Remove the cache at the end of the currently 176 `end-of-command' - Remove the cache at the end of the currently
177 executing command. 177 executing command.
178 'exit-cache-zone - Remove when point leaves the overlay at the 178 `exit-cache-zone' - Remove when point leaves the overlay at the
179 end of the currently executing command." 179 end of the currently executing command."
180 ;; Check if LIFESPAN is valid before to create any overlay 180 ;; Check if LIFESPAN is valid before to create any overlay
181 (or lifespan (setq lifespan 'end-of-command)) 181 (or lifespan (setq lifespan 'end-of-command))
182 (or (memq lifespan '(end-of-command exit-cache-zone)) 182 (or (memq lifespan '(end-of-command exit-cache-zone))
diff --git a/lisp/cedet/semantic/tag-ls.el b/lisp/cedet/semantic/tag-ls.el
index 40eafd9f160..fe4440b1e1a 100644
--- a/lisp/cedet/semantic/tag-ls.el
+++ b/lisp/cedet/semantic/tag-ls.el
@@ -271,11 +271,11 @@ search locally, then semanticdb for that tag (when enabled.)")
271(define-overloadable-function semantic-tag-protection (tag &optional parent) 271(define-overloadable-function semantic-tag-protection (tag &optional parent)
272 "Return protection information about TAG with optional PARENT. 272 "Return protection information about TAG with optional PARENT.
273This function returns on of the following symbols: 273This function returns on of the following symbols:
274 nil - No special protection. Language dependent. 274 nil - No special protection. Language dependent.
275 'public - Anyone can access this TAG. 275 `public' - Anyone can access this TAG.
276 'private - Only methods in the local scope can access TAG. 276 `private' - Only methods in the local scope can access TAG.
277 'protected - Like private for outside scopes, like public for child 277 `protected' - Like private for outside scopes, like public for child
278 classes. 278 classes.
279Some languages may choose to provide additional return symbols specific 279Some languages may choose to provide additional return symbols specific
280to themselves. Use of this function should allow for this. 280to themselves. Use of this function should allow for this.
281 281
diff --git a/lisp/cedet/semantic/wisent/javascript.el b/lisp/cedet/semantic/wisent/javascript.el
index b2a18fb48b8..a676a8b4591 100644
--- a/lisp/cedet/semantic/wisent/javascript.el
+++ b/lisp/cedet/semantic/wisent/javascript.el
@@ -73,11 +73,11 @@ This function overrides `get-local-variables'."
73(define-mode-local-override semantic-tag-protection javascript-mode (tag &optional parent) 73(define-mode-local-override semantic-tag-protection javascript-mode (tag &optional parent)
74 "Return protection information about TAG with optional PARENT. 74 "Return protection information about TAG with optional PARENT.
75This function returns on of the following symbols: 75This function returns on of the following symbols:
76 nil - No special protection. Language dependent. 76 nil - No special protection. Language dependent.
77 'public - Anyone can access this TAG. 77 `public' - Anyone can access this TAG.
78 'private - Only methods in the local scope can access TAG. 78 `private' - Only methods in the local scope can access TAG.
79 'protected - Like private for outside scopes, like public for child 79 `protected' - Like private for outside scopes, like public for child
80 classes. 80 classes.
81Some languages may choose to provide additional return symbols specific 81Some languages may choose to provide additional return symbols specific
82to themselves. Use of this function should allow for this. 82to themselves. Use of this function should allow for this.
83 83
@@ -114,7 +114,7 @@ This is currently needed for the mozrepl omniscient database."
114 (setq symlist (list (match-string 1 tmp) 114 (setq symlist (list (match-string 1 tmp)
115 (substring tmp (1+ (match-end 1)) (length tmp)))) 115 (substring tmp (1+ (match-end 1)) (length tmp))))
116 (setq symlist (list tmp)))))))) 116 (setq symlist (list tmp))))))))
117 117
118;;; Setup Function 118;;; Setup Function
119;; 119;;
120;; Since javascript-mode is an alias for js-mode, let it inherit all 120;; Since javascript-mode is an alias for js-mode, let it inherit all