[Top][All Lists]
[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")
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/descr-text.el,
Juanma Barranquero <=