[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/descr-text.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/descr-text.el [lexbind] |
Date: |
Thu, 11 Nov 2004 23:47:03 -0500 |
Index: emacs/lisp/descr-text.el
diff -c emacs/lisp/descr-text.el:1.4.2.12 emacs/lisp/descr-text.el:1.4.2.13
*** emacs/lisp/descr-text.el:1.4.2.12 Thu Nov 4 13:12:40 2004
--- emacs/lisp/descr-text.el Fri Nov 12 04:21:13 2004
***************
*** 507,513 ****
(format "%d" (nth 1 split))
(format "%d %d" (nth 1 split) (nth 2 split)))))
("syntax"
! ,(let ((syntax (syntax-after pos)))
(with-temp-buffer
(internal-describe-syntax-value syntax)
(buffer-string))))
--- 507,516 ----
(format "%d" (nth 1 split))
(format "%d %d" (nth 1 split) (nth 2 split)))))
("syntax"
! ,(let* ((st (if parse-sexp-lookup-properties
! (get-char-property pos 'syntax-table)))
! (syntax (if (consp st) st
! (aref (or st (syntax-table)) (char-after pos)))))
(with-temp-buffer
(internal-describe-syntax-value syntax)
(buffer-string))))