From f57297c8b2344d822fcf56fb3fc3b543e1e747bf Mon Sep 17 00:00:00 2001
From: =?utf8?q?Mattias=20Engdeg=C3=A5rd?= <mattiase@acm.org>
Date: Sun, 21 Aug 2022 15:48:08 +0200
Subject: [PATCH] * lisp/emacs-lisp/shortdoc.el (buffer): Add missing functions

Add preceding-char and char-before because following-char and
char-after were already there.
---
 lisp/emacs-lisp/shortdoc.el | 5 +++++
 1 file changed, 5 insertions(+)

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")
-- 
2.39.5