diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-11-22 06:00:51 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-11-22 06:00:51 +0000 |
| commit | d8ac3d271c6ff4377b597006753df7dc074d1b55 (patch) | |
| tree | 192990e5db8b5c93521ab1a6fd74edd9527b1507 /lisp/descr-text.el | |
| parent | abe0aa3e2a84edd77b72dac37f9ffae9901a7ae8 (diff) | |
| download | emacs-d8ac3d271c6ff4377b597006753df7dc074d1b55.tar.gz | |
(syntax-after): Undo last change.
Diffstat (limited to 'lisp/descr-text.el')
| -rw-r--r-- | lisp/descr-text.el | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lisp/descr-text.el b/lisp/descr-text.el index 7dd6966a486..49b9b12154a 100644 --- a/lisp/descr-text.el +++ b/lisp/descr-text.el @@ -1,6 +1,7 @@ ;;; descr-text.el --- describe text mode -;; Copyright (c) 1994, 95, 96, 2001, 02, 03, 04 Free Software Foundation, Inc. +;; Copyright (c) 1994, 1995, 1996, 2001, 2002, 2003, 2004 +;; Free Software Foundation, Inc. ;; Author: Boris Goldowsky <boris@gnu.org> ;; Keywords: faces @@ -507,10 +508,7 @@ as well as widgets, buttons, overlays, and text properties." (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))))) + ,(let ((syntax (syntax-after pos))) (with-temp-buffer (internal-describe-syntax-value syntax) (buffer-string)))) @@ -687,5 +685,5 @@ as well as widgets, buttons, overlays, and text properties." (provide 'descr-text) -;;; arch-tag: fc55a498-f3e9-4312-b5bd-98cc02480af1 +;; arch-tag: fc55a498-f3e9-4312-b5bd-98cc02480af1 ;;; descr-text.el ends here |