[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: |
Juri Linkov |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/descr-text.el |
Date: |
Wed, 28 Dec 2005 01:55:16 +0000 |
Index: emacs/lisp/descr-text.el
diff -u emacs/lisp/descr-text.el:1.49 emacs/lisp/descr-text.el:1.50
--- emacs/lisp/descr-text.el:1.49 Tue Dec 27 21:24:53 2005
+++ emacs/lisp/descr-text.el Wed Dec 28 01:55:16 2005
@@ -60,7 +60,7 @@
(t t))
(insert pp)
(insert-text-button
- "show" 'action `(lambda (&rest ignore)
+ "[Show]" 'action `(lambda (&rest ignore)
(with-output-to-temp-buffer
"*Pp Eval Output*"
(princ ',pp)))
@@ -90,7 +90,9 @@
(describe-text-category ',value))
'help-echo "mouse-2, RET: describe this category"))
((memq key '(face font-lock-face mouse-face))
- (insert (concat "`" (format "%S" value) "'")))
+ (insert-text-button
+ (format "%S" value)
+ 'type 'help-face 'help-args (list value)))
((widgetp value)
(describe-text-widget value))
(t
@@ -161,8 +163,8 @@
;; Buttons
(when (and button (not (widgetp wid-button)))
(newline)
- (insert "Here is a " (format "%S" button-type)
- " button labeled `" button-label "'.\n\n"))
+ (insert "Here is a `" (format "%S" button-type)
+ "' button labeled `" button-label "'.\n\n"))
;; Overlays
(when overlays
(newline)
@@ -462,8 +464,8 @@
,(let ((split (split-char char)))
`(insert-text-button
,(if (= (charset-dimension charset) 1)
- (format "%d" (nth 1 split))
- (format "%d %d" (nth 1 split)
+ (format "#x%02X" (nth 1 split))
+ (format "#x%02X #x%02X" (nth 1 split)
(nth 2 split)))
'action (lambda (&rest ignore)
(list-charset-chars ',charset)
@@ -505,7 +507,7 @@
key-list " or ")
"with"
`(insert-text-button
- ,(symbol-name current-input-method)
+ ,current-input-method
'type 'help-input-method
'help-args '(,current-input-method))))))
("buffer code"
@@ -576,7 +578,9 @@
((and (< char 32) (not (memq char '(9 10))))
'escape-glyph)))))
(if face (list (list "hardcoded face"
- (concat "`" (symbol-name face) "'")))))
+ `(insert-text-button
+ ,(symbol-name face)
+ 'type 'help-face 'help-args '(,face))))))
,@(let ((unicodedata (and unicode
(describe-char-unicode-data unicode))))
(if unicodedata
@@ -687,7 +691,7 @@
"the meaning of the rule.\n"))
(if text-props-desc (insert text-props-desc))
- (setq help-xref-stack-item (list 'help-insert-string (buffer-string)))
+ (setq help-xref-stack-item (list 'help-insert-string (buffer-string)))
(toggle-read-only 1)
(print-help-return-message)))))
- [Emacs-diffs] Changes to emacs/lisp/descr-text.el, Kenichi Handa, 2005/12/07
- [Emacs-diffs] Changes to emacs/lisp/descr-text.el, Stefan Monnier, 2005/12/12
- [Emacs-diffs] Changes to emacs/lisp/descr-text.el, Juri Linkov, 2005/12/14
- [Emacs-diffs] Changes to emacs/lisp/descr-text.el, Nick Roberts, 2005/12/22
- [Emacs-diffs] Changes to emacs/lisp/descr-text.el, Nick Roberts, 2005/12/26
- [Emacs-diffs] Changes to emacs/lisp/descr-text.el, Nick Roberts, 2005/12/26
- [Emacs-diffs] Changes to emacs/lisp/descr-text.el, Nick Roberts, 2005/12/27
- [Emacs-diffs] Changes to emacs/lisp/descr-text.el,
Juri Linkov <=