>From 1ff75d6daf59f8282544d3aea42ad2808f1469c9 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Wed, 27 Sep 2023 18:27:12 +0200 Subject: [PATCH] ; Substitute quotes in obsoletion notice in 'C-h f' * lisp/help-fns.el (help-fns--obsolete): Substitute quotes in string arguments to 'obsolete' declarations. * lisp/emacs-lisp/advice.el (defadvice): Markup symbols in 'obsolete' declaration. --- lisp/emacs-lisp/advice.el | 2 +- lisp/help-fns.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el index 3265809f592..7fbdd963e0e 100644 --- a/lisp/emacs-lisp/advice.el +++ b/lisp/emacs-lisp/advice.el @@ -3131,7 +3131,7 @@ defadvice [DOCSTRING] [INTERACTIVE-FORM] BODY...)" (declare (doc-string 3) (indent 2) - (obsolete "use advice-add or define-advice" "30.1") + (obsolete "use `advice-add' or `define-advice'" "30.1") (debug (&define name ;; thing being advised. (name ;; class is [&or "before" "around" "after" ;; "activation" "deactivation"] diff --git a/lisp/help-fns.el b/lisp/help-fns.el index b34778773a9..e93c535bbef 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -767,7 +767,7 @@ help-fns--obsolete " is obsolete") (when (nth 2 obsolete) (insert (format " since %s" (nth 2 obsolete)))) - (insert (cond ((stringp use) (concat "; " use)) + (insert (cond ((stringp use) (concat "; " (substitute-quotes use))) (use (format-message "; use `%s' instead." use)) (t ".")) "\n") -- 2.42.0