From: Mattias Engdegård <mattiase@acm.org>
Date: Sun, 21 Aug 2022 13:48:08 +0000 (+0200)
Subject: * lisp/emacs-lisp/shortdoc.el (buffer): Add missing functions
X-Git-Tag: emacs-29.0.90~1893^2~128
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f57297c8b2344d822fcf56fb3fc3b543e1e747bf;p=emacs.git

* lisp/emacs-lisp/shortdoc.el (buffer): Add missing functions

Add preceding-char and char-before because following-char and
char-after were already there.
---

diff --git a/lisp/emacs-lisp/shortdoc.el b/lisp/emacs-lisp/shortdoc.el
index 6fb6100bd2d..43fefc8ed05 100644
--- a/lisp/emacs-lisp/shortdoc.el
+++ b/lisp/emacs-lisp/shortdoc.el
@@ -984,8 +984,13 @@ A FUNC form can have any number of `:no-eval' (or `:no-value'),
   (following-char
    :no-eval (following-char)
    :eg-result 67)
+  (preceding-char
+   :no-eval (preceding-char)
+   :eg-result 38)
   (char-after
    :eval (char-after 45))
+  (char-before
+   :eval (char-before 13))
   (get-byte
    :no-eval (get-byte 45)
    :eg-result-string "#xff")