From 38bb9ff0f4b92836199d8b3a0ee3903428bb7851 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Sun, 21 Jun 2015 12:34:11 -0700 Subject: Fix some “nested” quoting confusion in doc strings MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * 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. --- lisp/emacs-lisp/advice.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'lisp/emacs-lisp') diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el index 907f03bde45..1915d94e97b 100644 --- a/lisp/emacs-lisp/advice.el +++ b/lisp/emacs-lisp/advice.el @@ -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))) -- cgit v1.2.3