[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 8a635ac849d 2/3: ; Substitute quotes in obsoletion notice in 'C-h
From: |
Stefan Kangas |
Subject: |
master 8a635ac849d 2/3: ; Substitute quotes in obsoletion notice in 'C-h f' |
Date: |
Thu, 28 Sep 2023 15:45:30 -0400 (EDT) |
branch: master
commit 8a635ac849d1cc79e0bb3d6cb11b0ff530500a47
Author: Eshel Yaron <me@eshelyaron.com>
Commit: Stefan Kangas <stefankangas@gmail.com>
; 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. (Bug#66240)
---
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 @@ usage: (defadvice FUNCTION (CLASS NAME [POSITION]
[ARGLIST] FLAG...)
[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 @@ the C sources, too."
" 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")