emacs/gnu.emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2026-09-10 07:46:51 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

lisp/subr.el (syntax-after): Fix unibyte buffer case (bug#81717)

Browse source
This commit is contained in:
Stefan Monnier 2026-08-30 23:05:02 -04:00
parent 24fc3c0592
commit 2eae6803a0
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/subr.el
View file

@ -6555,7 +6555,10 @@ If POS is outside the buffer's accessible portion, return nil."
(let ((st (if parse-sexp-lookup-properties
(get-char-property pos 'syntax-table))))
(if (consp st) st
(aref (or st (syntax-table)) (char-after pos))))))
(let ((c (char-after pos)))
(aref (or st (syntax-table))
(if enable-multibyte-characters
c (unibyte-char-to-multibyte c))))))))
(defun syntax-class (syntax)
"Return the code for the syntax class described by SYNTAX.