[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.9 emacs/lisp/descr-text.el:1.4.2.10
*** emacs/lisp/descr-text.el:1.4.2.9    Tue Jul  6 09:14:17 2004
--- emacs/lisp/descr-text.el    Tue Jul  6 09:31:47 2004
***************
*** 111,117 ****
                         (setq key (pop properties)
                               val (pop properties)
                               len 0)
!                        (unless (or (memq key '(category face font-lock-face))
                                     (widgetp val))
                           (setq val (pp-to-string val)
                                 len (length val)))
--- 111,118 ----
                         (setq key (pop properties)
                               val (pop properties)
                               len 0)
!                        (unless (or (memq key '(category face font-lock-face
!                                                  syntax-table))
                                     (widgetp val))
                           (setq val (pp-to-string val)
                                 len (length val)))
***************
*** 134,140 ****
                            :notify `(lambda (&rest ignore)
                                       (describe-face ',value))
                            (format "%S" value)))
!           ((widgetp value)
             (describe-text-widget value))
            (t
             (widget-insert value))))
--- 135,149 ----
                            :notify `(lambda (&rest ignore)
                                       (describe-face ',value))
                            (format "%S" value)))
!           ((eq key 'syntax-table)
!            (widget-create 'push-button
!                             :tag "show"
!                             :action (lambda (widget &optional event)
!                                       (with-output-to-temp-buffer
!                                           "*Pp Eval Output*"
!                                         (pp (widget-get widget :value))))
!                             value))
!             ((widgetp value)
             (describe-text-widget value))
            (t
             (widget-insert value))))
***************
*** 476,482 ****
                          (encode-char char 'ucs))))
      (setq item-list
          `(("character"
!           ,(format "%s (0%o, %d, 0x%x%s)" 
                     (apply 'propertize (if (not multibyte-p)
                                            (single-key-description char)
                                          (if (< char 128)
--- 485,491 ----
                          (encode-char char 'ucs))))
      (setq item-list
          `(("character"
!           ,(format "%s (0%o, %d, 0x%x%s)"
                     (apply 'propertize (if (not multibyte-p)
                                            (single-key-description char)
                                          (if (< char 128)
***************
*** 598,604 ****
  
        (save-excursion
          (goto-char (point-min))
!         (search-forward "character: ")
          (setq pos (point)))
        (if overlays
            (mapc #'(lambda (props)
--- 607,613 ----
  
        (save-excursion
          (goto-char (point-min))
!         (re-search-forward "character:[ \t\n]+")
          (setq pos (point)))
        (if overlays
            (mapc #'(lambda (props)