From: martin rudalics <rudalics@gmx.at>
Subject: Missing follow-links in descr-text
Date: Mon, 13 Feb 2006 18:17:44 +0100 [thread overview]
Message-ID: <wkr767mb47.fsf@gmx.at> (raw)
Please consider adding a few follow-link properties to descr-text.el.
The current behavior of `describe-char', for example, is a bit chaotic
with `mouse-1-click-follows-link' non-nil.
* descr-text.el (describe-text-widget, describe-text-sexp)
(describe-property-list, describe-char): Add follow-link
property.
*** descr-text.el Thu Jan 5 07:44:36 2006
--- descr-text.el Mon Feb 13 11:21:52 2006
***************
*** 41,47 ****
(symbol-name (if (symbolp widget) widget (car widget)))
'action `(lambda (&rest ignore)
(widget-browse ',widget))
! 'help-echo "mouse-2, RET: browse this widget")
(insert " ")
(insert-text-button
"(widget)Top" 'type 'help-info 'help-args '("(widget)Top")))
--- 41,48 ----
(symbol-name (if (symbolp widget) widget (car widget)))
'action `(lambda (&rest ignore)
(widget-browse ',widget))
! 'help-echo "mouse-2, RET: browse this widget"
! 'follow-link t)
(insert " ")
(insert-text-button
"(widget)Top" 'type 'help-info 'help-args '("(widget)Top")))
***************
*** 64,70 ****
(with-output-to-temp-buffer
"*Pp Eval Output*"
(princ ',pp)))
! 'help-echo "mouse-2, RET: pretty print value in another buffer"))))
(defun describe-property-list (properties)
"Insert a description of PROPERTIES in the current buffer.
--- 65,72 ----
(with-output-to-temp-buffer
"*Pp Eval Output*"
(princ ',pp)))
! 'help-echo "mouse-2, RET: pretty print value in another buffer"
! 'follow-link t))))
(defun describe-property-list (properties)
"Insert a description of PROPERTIES in the current buffer.
***************
*** 88,94 ****
(symbol-name value)
'action `(lambda (&rest ignore)
(describe-text-category ',value))
! 'help-echo "mouse-2, RET: describe this category"))
((memq key '(face font-lock-face mouse-face))
(insert-text-button
(format "%S" value)
--- 90,97 ----
(symbol-name value)
'action `(lambda (&rest ignore)
(describe-text-category ',value))
! 'help-echo "mouse-2, RET: describe this category"
! 'follow-link t))
((memq key '(face font-lock-face mouse-face))
(insert-text-button
(format "%S" value)
***************
*** 477,483 ****
(search-forward ,(char-to-string char)
nil t))))
'help-echo
! "mouse-2, RET: show this character in its character set")))
("syntax"
,(let ((syntax (syntax-after pos)))
(with-temp-buffer
--- 480,487 ----
(search-forward ,(char-to-string char)
nil t))))
'help-echo
! "mouse-2, RET: show this character in its character set"
! 'follow-link t)))
("syntax"
,(let ((syntax (syntax-after pos)))
(with-temp-buffer
next reply other threads:[~2006-02-13 17:17 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2006-02-13 17:17 martin rudalics [this message]
2006-02-13 17:59 ` Missing follow-links in descr-text Juri Linkov
2006-02-13 19:49 ` martin rudalics
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=wkr767mb47.fsf@gmx.at \
--to=rudalics@gmx.at \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).