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 |
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 " ") |
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 |
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")) |
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") |