From: Eshel Yaron <me@eshelyaron.com>
Date: Sun, 12 Nov 2023 20:42:25 +0000 (+0100)
Subject: ; Fix 'add-face-text-property' shortdoc
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f98637b51b5;p=emacs.git

; Fix 'add-face-text-property' shortdoc

* lisp/emacs-lisp/shortdoc.el (text-properties): Add missing
':no-eval' keyword.  (Bug#67138)
---

diff --git a/lisp/emacs-lisp/shortdoc.el b/lisp/emacs-lisp/shortdoc.el
index f5cbb2e645f..e7c38d996b9 100644
--- a/lisp/emacs-lisp/shortdoc.el
+++ b/lisp/emacs-lisp/shortdoc.el
@@ -1384,7 +1384,7 @@ A FUNC form can have any number of `:no-eval' (or `:no-value'),
   (set-text-properties
    :no-eval (set-text-properties (point) (1+ (point)) '(face error)))
   (add-face-text-property
-   (add-face-text-property START END '(:foreground "green")))
+   :no-eval (add-face-text-property START END '(:foreground "green")))
   (propertize
    :eval (propertize "foo" 'face 'italic 'mouse-face 'bold-italic))
   "Searching for Text Properties"