emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Juanma Barranquero
Subject: [Emacs-diffs] Changes to emacs/lisp/descr-text.el
Date: Tue, 04 Feb 2003 06:09:26 -0500

Index: emacs/lisp/descr-text.el
diff -c emacs/lisp/descr-text.el:1.9 emacs/lisp/descr-text.el:1.10
*** emacs/lisp/descr-text.el:1.9        Thu Jan 23 00:45:44 2003
--- emacs/lisp/descr-text.el    Tue Feb  4 06:09:25 2003
***************
*** 35,46 ****
        (delete-window)
      (bury-buffer)))
  
! (defvar describe-text-mode-map 
    (let ((map (make-sparse-keymap)))
      (set-keymap-parent map widget-keymap)
      map)
    "Keymap for `describe-text-mode'.")
!   
  (defcustom describe-text-mode-hook nil
    "List of hook functions ran by `describe-text-mode'."
    :type 'hook
--- 35,46 ----
        (delete-window)
      (bury-buffer)))
  
! (defvar describe-text-mode-map
    (let ((map (make-sparse-keymap)))
      (set-keymap-parent map widget-keymap)
      map)
    "Keymap for `describe-text-mode'.")
! 
  (defcustom describe-text-mode-hook nil
    "List of hook functions ran by `describe-text-mode'."
    :type 'hook
***************
*** 67,73 ****
    (widget-create 'link
                 :notify `(lambda (&rest ignore)
                            (widget-browse ',widget))
!                (format "%S" (if (symbolp widget) 
                                  widget
                                (car widget))))
    (widget-insert " ")
--- 67,73 ----
    (widget-create 'link
                 :notify `(lambda (&rest ignore)
                            (widget-browse ',widget))
!                (format "%S" (if (symbolp widget)
                                  widget
                                (car widget))))
    (widget-insert " ")
***************
*** 197,203 ****
        ;; Buttons
        (when (and button (not (widgetp wid-button)))
        (newline)
!       (widget-insert "Here is a " (format "%S" button-type) 
                       " button labeled `" button-label "'.\n\n"))
        ;; Overlays
        (when overlays
--- 197,203 ----
        ;; Buttons
        (when (and button (not (widgetp wid-button)))
        (newline)
!       (widget-insert "Here is a " (format "%S" button-type)
                       " button labeled `" button-label "'.\n\n"))
        ;; Overlays
        (when overlays
***************
*** 207,213 ****
          (widget-insert "There are " (format "%d" (length overlays))
                         " overlays here:\n"))
        (dolist (overlay overlays)
!         (widget-insert " From " (format "%d" (overlay-start overlay)) 
                         " to " (format "%d" (overlay-end overlay)) "\n")
          (describe-property-list (overlay-properties overlay)))
        (widget-insert "\n"))
--- 207,213 ----
          (widget-insert "There are " (format "%d" (length overlays))
                         " overlays here:\n"))
        (dolist (overlay overlays)
!         (widget-insert " From " (format "%d" (overlay-start overlay))
                         " to " (format "%d" (overlay-end overlay)) "\n")
          (describe-property-list (overlay-properties overlay)))
        (widget-insert "\n"))
***************
*** 336,342 ****
                   (t (concat (substring composed 0 (- pos (car composition)))
                              "' and `"
                              (substring composed (- (1+ pos) (car 
composition))))))
!                   
                  "' to form `" composed "'")
          (if (nth 3 composition)
              (insert ".\n")
--- 336,342 ----
                   (t (concat (substring composed 0 (- pos (car composition)))
                              "' and `"
                              (substring composed (- (1+ pos) (car 
composition))))))
! 
                  "' to form `" composed "'")
          (if (nth 3 composition)
              (insert ".\n")




reply via email to

[Prev in Thread] Current Thread [Next in Thread]