mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-30 19:53:09 +00:00
Code Issues Releases Activity

Fix some “nested” quoting confusion in doc strings

Browse Source 
* lisp/emacs-lisp/advice.el (ad-map-arglists):
* lisp/kermit.el (kermit-clean-on):
* lisp/mh-e/mh-comp.el (mh-repl-group-formfile):
* src/keyboard.c (Frecursive_edit):
Use curved quotes when quoting text containing apostrophe,
so that the apostrophe isn't curved in the output.
This commit is contained in:
Paul Eggert 2015-06-21 12:34:11 -07:00
parent 8b6d82d3ca
commit 38bb9ff0f4
4 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/emacs-lisp/advice.el
View File

@ -2412,14 +2412,14 @@ The assignment starts at position INDEX."
;; The mapping should work for any two argument lists.
(defun ad-map-arglists (source-arglist target-arglist)
"Make `funcall/apply' form to map SOURCE-ARGLIST to TARGET-ARGLIST.
"Make ‘funcall/apply’ form to map SOURCE-ARGLIST to TARGET-ARGLIST.
The arguments supplied to TARGET-ARGLIST will be taken from SOURCE-ARGLIST just
as if they had been supplied to a function with TARGET-ARGLIST directly.
Excess source arguments will be neglected, missing source arguments will be
supplied as nil. Returns a `funcall' or `apply' form with the second element
being `function' which has to be replaced by an actual function argument.
Example: `(ad-map-arglists '(a &rest args) '(w x y z))' will return
`(funcall ad--addoit-function a (car args) (car (cdr args)) (nth 2 args))'."
supplied as nil. Returns a ‘funcall’ or ‘apply’ form with the second element
being ‘function’ which has to be replaced by an actual function argument.
Example: ‘(ad-map-arglists '(a &rest args) '(w x y z))’ will return
‘(funcall ad--addoit-function a (car args) (car (cdr args)) (nth 2 args))’."
(let* ((parsed-source-arglist (ad-parse-arglist source-arglist))
(source-reqopt-args (append (nth 0 parsed-source-arglist)
(nth 1 parsed-source-arglist)))

2
lisp/kermit.el
View File

@ -135,7 +135,7 @@ In this state, use LFD to send a line and end it with a carriage-return."
(defun kermit-clean-on ()
"Delete all null characters and ^M's from the kermit output.
Note that another (perhaps better) way to do this is to use the
command `kermit | tr -d '\\015''."
command ‘kermit | tr -d '\\015'’."
(interactive)
(set-process-filter (get-buffer-process (current-buffer))
'kermit-clean-filter))

2
lisp/mh-e/mh-comp.el
View File

@ -91,7 +91,7 @@ user's MH directory, then in the system MH lib directory.")
Default is \"replgroupcomps\".
This file is used to form replies to the sender and all recipients of
a message. Only used if `(mh-variant-p 'nmh)' is non-nil.
a message. Only used if ‘(mh-variant-p 'nmh)’ is non-nil.
If not an absolute file name, the file is searched for first in the
user's MH directory, then in the system MH lib directory.")

8
src/keyboard.c
View File

@ -758,11 +758,11 @@ force_auto_save_soon (void)
DEFUN ("recursive-edit", Frecursive_edit, Srecursive_edit, 0, 0, "",
doc: /* Invoke the editor command loop recursively.
To get out of the recursive edit, a command can throw to `exit' -- for
instance `(throw 'exit nil)'.
If you throw a value other than t, `recursive-edit' returns normally
To get out of the recursive edit, a command can throw to ‘exit’ -- for
instance ‘(throw 'exit nil)’.
If you throw a value other than t, ‘recursive-edit’ returns normally
to the function that called it. Throwing a t value causes
`recursive-edit' to quit, so that control returns to the command loop
‘recursive-edit’ to quit, so that control returns to the command loop
one level up.
This function is called by the editor initialization to begin editing. */)