[Emacs-diffs] Changes to emacs/lisp/descr-text.el [lexbind]

[Miles Bader]

Index: emacs/lisp/descr-text.el
diff -c emacs/lisp/descr-text.el:1.4.2.13 emacs/lisp/descr-text.el:1.4.2.14
*** emacs/lisp/descr-text.el:1.4.2.13   Fri Nov 12 04:21:13 2004
--- emacs/lisp/descr-text.el    Wed Dec  8 23:36:20 2004
***************
*** 1,6 ****
  ;;; descr-text.el --- describe text mode
  
! ;; Copyright (c) 1994, 95, 96, 2001, 02, 03, 04 Free Software Foundation, Inc.
  
  ;; Author: Boris Goldowsky <address@hidden>
  ;; Keywords: faces
--- 1,7 ----
  ;;; descr-text.el --- describe text mode
  
! ;; Copyright (c) 1994, 1995, 1996, 2001, 2002, 2003, 2004
! ;;           Free Software Foundation, Inc.
  
  ;; Author: Boris Goldowsky <address@hidden>
  ;; Keywords: faces
***************
*** 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))))
--- 508,514 ----
                    (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))))
***************
*** 687,691 ****
  
  (provide 'descr-text)
  
! ;;; arch-tag: fc55a498-f3e9-4312-b5bd-98cc02480af1
  ;;; descr-text.el ends here
--- 685,689 ----
  
  (provide 'descr-text)
  
! ;; arch-tag: fc55a498-f3e9-4312-b5bd-98cc02480af1
  ;;; descr-text.el ends here