[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/descr-text.el [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/descr-text.el [emacs-unicode-2] |
Date: |
Wed, 08 Dec 2004 01:48:34 -0500 |
Index: emacs/lisp/descr-text.el
diff -c emacs/lisp/descr-text.el:1.13.4.10 emacs/lisp/descr-text.el:1.13.4.11
*** emacs/lisp/descr-text.el:1.13.4.10 Fri Nov 12 02:52:52 2004
--- emacs/lisp/descr-text.el Wed Dec 8 05:02:15 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
***************
*** 499,508 ****
(format (if (< code 256) "0x%02X" "0x%04X") code)
(format "0x%04X%04X" (car code) (cdr code))))
("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))))
--- 500,506 ----
(format (if (< code 256) "0x%02X" "0x%04X") code)
(format "0x%04X%04X" (car code) (cdr code))))
("syntax"
! ,(let ((syntax (syntax-after pos)))
(with-temp-buffer
(internal-describe-syntax-value syntax)
(buffer-string))))
***************
*** 678,682 ****
(provide 'descr-text)
! ;;; arch-tag: fc55a498-f3e9-4312-b5bd-98cc02480af1
;;; descr-text.el ends here
--- 676,680 ----
(provide 'descr-text)
! ;; arch-tag: fc55a498-f3e9-4312-b5bd-98cc02480af1
;;; descr-text.el ends here
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/descr-text.el [emacs-unicode-2],
Miles Bader <=