Commit 38bb9ff0 authored by Paul Eggert's avatar Paul Eggert
Browse files

Fix some “nested” quoting confusion in doc strings

* 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.
parent 8b6d82d3
...@@ -2412,14 +2412,14 @@ The assignment starts at position INDEX." ...@@ -2412,14 +2412,14 @@ The assignment starts at position INDEX."
;; The mapping should work for any two argument lists. ;; The mapping should work for any two argument lists.
(defun ad-map-arglists (source-arglist target-arglist) (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 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. as if they had been supplied to a function with TARGET-ARGLIST directly.
Excess source arguments will be neglected, missing source arguments will be Excess source arguments will be neglected, missing source arguments will be
supplied as nil. Returns a `funcall' or `apply' form with the second element 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. 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 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))'." (funcall ad--addoit-function a (car args) (car (cdr args)) (nth 2 args))."
(let* ((parsed-source-arglist (ad-parse-arglist source-arglist)) (let* ((parsed-source-arglist (ad-parse-arglist source-arglist))
(source-reqopt-args (append (nth 0 parsed-source-arglist) (source-reqopt-args (append (nth 0 parsed-source-arglist)
(nth 1 parsed-source-arglist))) (nth 1 parsed-source-arglist)))
......
...@@ -135,7 +135,7 @@ In this state, use LFD to send a line and end it with a carriage-return." ...@@ -135,7 +135,7 @@ In this state, use LFD to send a line and end it with a carriage-return."
(defun kermit-clean-on () (defun kermit-clean-on ()
"Delete all null characters and ^M's from the kermit output. "Delete all null characters and ^M's from the kermit output.
Note that another (perhaps better) way to do this is to use the Note that another (perhaps better) way to do this is to use the
command `kermit | tr -d '\\015''." command kermit | tr -d '\\015'."
(interactive) (interactive)
(set-process-filter (get-buffer-process (current-buffer)) (set-process-filter (get-buffer-process (current-buffer))
'kermit-clean-filter)) 'kermit-clean-filter))
......
...@@ -91,7 +91,7 @@ user's MH directory, then in the system MH lib directory.") ...@@ -91,7 +91,7 @@ user's MH directory, then in the system MH lib directory.")
Default is \"replgroupcomps\". Default is \"replgroupcomps\".
This file is used to form replies to the sender and all recipients of 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 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.") user's MH directory, then in the system MH lib directory.")
......
...@@ -758,11 +758,11 @@ force_auto_save_soon (void) ...@@ -758,11 +758,11 @@ force_auto_save_soon (void)
DEFUN ("recursive-edit", Frecursive_edit, Srecursive_edit, 0, 0, "", DEFUN ("recursive-edit", Frecursive_edit, Srecursive_edit, 0, 0, "",
doc: /* Invoke the editor command loop recursively. doc: /* Invoke the editor command loop recursively.
To get out of the recursive edit, a command can throw to `exit' -- for To get out of the recursive edit, a command can throw to exit -- for
instance `(throw 'exit nil)'. instance (throw 'exit nil).
If you throw a value other than t, `recursive-edit' returns normally If you throw a value other than t, recursive-edit returns normally
to the function that called it. Throwing a t value causes 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. one level up.
This function is called by the editor initialization to begin editing. */) This function is called by the editor initialization to begin editing. */)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment