procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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
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)))