summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp/shortdoc.el
diff options
context:
space:
mode:
authorMattias EngdegÄrd <mattiase@acm.org>2022-08-21 15:48:08 +0200
committerMattias EngdegÄrd <mattiase@acm.org>2022-08-21 16:18:03 +0200
commitf57297c8b2344d822fcf56fb3fc3b543e1e747bf (patch)
tree67185c26531b8418632223e56bbb61a24bb52c0c /lisp/emacs-lisp/shortdoc.el
parenta6ccb82fdaacb731295545f867765d60726c5044 (diff)
downloademacs-f57297c8b2344d822fcf56fb3fc3b543e1e747bf.tar.gz
emacs-f57297c8b2344d822fcf56fb3fc3b543e1e747bf.tar.bz2
emacs-f57297c8b2344d822fcf56fb3fc3b543e1e747bf.zip
* lisp/emacs-lisp/shortdoc.el (buffer): Add missing functions
Add preceding-char and char-before because following-char and char-after were already there.
Diffstat (limited to 'lisp/emacs-lisp/shortdoc.el')
-rw-r--r--lisp/emacs-lisp/shortdoc.el5
1 files changed, 5 insertions, 0 deletions
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")