/[emacs]/emacs/lisp/descr-text.el
ViewVC logotype

Diff of /emacs/lisp/descr-text.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by rost, Thu Jan 23 05:45:44 2003 UTC revision 1.10 by lektu, Tue Feb 4 11:09:25 2003 UTC
# Line 35  Line 35 
35        (delete-window)        (delete-window)
36      (bury-buffer)))      (bury-buffer)))
37    
38  (defvar describe-text-mode-map  (defvar describe-text-mode-map
39    (let ((map (make-sparse-keymap)))    (let ((map (make-sparse-keymap)))
40      (set-keymap-parent map widget-keymap)      (set-keymap-parent map widget-keymap)
41      map)      map)
42    "Keymap for `describe-text-mode'.")    "Keymap for `describe-text-mode'.")
43      
44  (defcustom describe-text-mode-hook nil  (defcustom describe-text-mode-hook nil
45    "List of hook functions ran by `describe-text-mode'."    "List of hook functions ran by `describe-text-mode'."
46    :type 'hook    :type 'hook
# Line 67  if that value is non-nil." Line 67  if that value is non-nil."
67    (widget-create 'link    (widget-create 'link
68                   :notify `(lambda (&rest ignore)                   :notify `(lambda (&rest ignore)
69                              (widget-browse ',widget))                              (widget-browse ',widget))
70                   (format "%S" (if (symbolp widget)                   (format "%S" (if (symbolp widget)
71                                    widget                                    widget
72                                  (car widget))))                                  (car widget))))
73    (widget-insert " ")    (widget-insert " ")
# Line 197  otherwise." Line 197  otherwise."
197        ;; Buttons        ;; Buttons
198        (when (and button (not (widgetp wid-button)))        (when (and button (not (widgetp wid-button)))
199          (newline)          (newline)
200          (widget-insert "Here is a " (format "%S" button-type)          (widget-insert "Here is a " (format "%S" button-type)
201                         " button labeled `" button-label "'.\n\n"))                         " button labeled `" button-label "'.\n\n"))
202        ;; Overlays        ;; Overlays
203        (when overlays        (when overlays
# Line 207  otherwise." Line 207  otherwise."
207            (widget-insert "There are " (format "%d" (length overlays))            (widget-insert "There are " (format "%d" (length overlays))
208                           " overlays here:\n"))                           " overlays here:\n"))
209          (dolist (overlay overlays)          (dolist (overlay overlays)
210            (widget-insert " From " (format "%d" (overlay-start overlay))            (widget-insert " From " (format "%d" (overlay-start overlay))
211                           " to " (format "%d" (overlay-end overlay)) "\n")                           " to " (format "%d" (overlay-end overlay)) "\n")
212            (describe-property-list (overlay-properties overlay)))            (describe-property-list (overlay-properties overlay)))
213          (widget-insert "\n"))          (widget-insert "\n"))
# Line 336  as well as widgets, buttons, overlays, a Line 336  as well as widgets, buttons, overlays, a
336                     (t (concat (substring composed 0 (- pos (car composition)))                     (t (concat (substring composed 0 (- pos (car composition)))
337                                "' and `"                                "' and `"
338                                (substring composed (- (1+ pos) (car composition))))))                                (substring composed (- (1+ pos) (car composition))))))
339                        
340                    "' to form `" composed "'")                    "' to form `" composed "'")
341            (if (nth 3 composition)            (if (nth 3 composition)
342                (insert ".\n")                (insert ".\n")

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26