diff options
| author | Paul Eggert | 2015-09-03 15:31:12 -0700 |
|---|---|---|
| committer | Paul Eggert | 2015-09-03 15:32:54 -0700 |
| commit | 26bd978d87dfbf9baa115cd961a67d42b416c4bf (patch) | |
| tree | 20f3d063895796f54b9f521c0b35f65bbcd418c4 /lisp/cedet/semantic | |
| parent | 944d77f070da388b0c6e6578a9f868e88c088940 (diff) | |
| download | emacs-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.el | 6 | ||||
| -rw-r--r-- | lisp/cedet/semantic/analyze/complete.el | 6 | ||||
| -rw-r--r-- | lisp/cedet/semantic/bovine/gcc.el | 6 | ||||
| -rw-r--r-- | lisp/cedet/semantic/db-find.el | 2 | ||||
| -rw-r--r-- | lisp/cedet/semantic/decorate/include.el | 2 | ||||
| -rw-r--r-- | lisp/cedet/semantic/fw.el | 8 | ||||
| -rw-r--r-- | lisp/cedet/semantic/tag-ls.el | 10 | ||||
| -rw-r--r-- | lisp/cedet/semantic/wisent/javascript.el | 12 |
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. | |||
| 251 | Optional argument THROWSYM specifies a symbol the throw on non-recoverable error. | 251 | Optional argument THROWSYM specifies a symbol the throw on non-recoverable error. |
| 252 | Remaining arguments FLAGS are additional flags to apply when searching. | 252 | Remaining arguments FLAGS are additional flags to apply when searching. |
| 253 | This function knows of flags: | 253 | This 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." | |||
| 112 | Argument CONTEXT is an object specifying the locally derived context. | 112 | Argument CONTEXT is an object specifying the locally derived context. |
| 113 | The optional argument FLAGS changes which return options are returned. | 113 | The optional argument FLAGS changes which return options are returned. |
| 114 | FLAGS can be any number of: | 114 | FLAGS 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. |
| 138 | This is setup by `semantic-gcc-setup'. | 138 | This is setup by `semantic-gcc-setup'. |
| 139 | This is an alist, and should include keys of: | 139 | This 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. |
| 143 | It should also include other symbols GCC was compiled with.") | 143 | It 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'. | |||
| 297 | Note for overloading: If you opt to overload this function for your | 297 | Note for overloading: If you opt to overload this function for your |
| 298 | major mode, and your routine takes a long time, be sure to call | 298 | major 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 | ||
| 302 | so that it can be called from the idle work handler." | 302 | so 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 | |||
| 540 | EDE project that will wrap an existing build system. You can do that | 540 | EDE project that will wrap an existing build system. You can do that |
| 541 | like this in your .emacs file: | 541 | like 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 | ||
| 545 | See the CEDET manual, the EDE manual, or the commentary in | 545 | See the CEDET manual, the EDE manual, or the commentary in |
| 546 | ede/cpp-root.el for more. | 546 | ede/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'. | |||
| 173 | LIFESPAN indicates how long the data cache will be remembered. | 173 | LIFESPAN indicates how long the data cache will be remembered. |
| 174 | The default LIFESPAN is 'end-of-command. | 174 | The default LIFESPAN is 'end-of-command. |
| 175 | Possible Lifespans are: | 175 | Possible 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. |
| 273 | This function returns on of the following symbols: | 273 | This 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. |
| 279 | Some languages may choose to provide additional return symbols specific | 279 | Some languages may choose to provide additional return symbols specific |
| 280 | to themselves. Use of this function should allow for this. | 280 | to 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. |
| 75 | This function returns on of the following symbols: | 75 | This 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. |
| 81 | Some languages may choose to provide additional return symbols specific | 81 | Some languages may choose to provide additional return symbols specific |
| 82 | to themselves. Use of this function should allow for this. | 82 | to 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 |