From: Kevin Rodgers <ihs_4664@yahoo.com>
Subject: Re: man mode mouse over SEE ALSO items
Date: Tue, 20 Apr 2004 12:02:46 -0600 [thread overview]
Message-ID: <16517.26054.118955.117704@ihs.com> (raw)
In-Reply-To: mailman.460.1082403123.1061.bug-gnu-emacs@gnu.org
Dan Jacobson wrote:
> I notice in man mode when placing the mouse over SEE ALSO items,
> nothing special happens, and we cannot hit the middle button to go to
> the man page referred to, although r RET gets us there fast enough.
Here's a patch. Note that it does not handle hyphenated references.
2004-04-20 Kevin Rodgers <ihs_4664@yahoo.com>
* man.el (Man-mode-reference-map): New variable and prefix command.
(Man-mouse-follow-manual-reference): New command.
(Man-build-references-alist): Add mouse-face, keymap, help-echo,
and Man-manual-reference text properties to each reference.
*** emacs-21.3/lisp/man.el.orig Fri Oct 18 19:21:09 2002
--- emacs-21.3/lisp/man.el Tue Apr 20 10:27:15 2004
***************
*** 228,233 ****
--- 228,236 ----
(defvar Man-mode-map nil
"Keymap for Man mode.")
+ (defvar Man-mode-reference-map nil
+ "Keymap for highlighted references in Man mode.")
+
(defvar Man-mode-hook nil
"Hook run when Man mode is enabled.")
***************
*** 354,359 ****
--- 357,368 ----
(define-key Man-mode-map "?" 'describe-mode)
)
+ (if Man-mode-reference-map
+ nil
+ (define-prefix-command 'Man-mode-reference-map)
+ (define-key Man-mode-reference-map [mouse-2]
+ 'Man-mouse-follow-manual-reference))
+
\f
;; ======================================================================
;; utilities
***************
*** 904,910 ****
(setq runningpoint (point))
(if (re-search-forward Man-hyphenated-reference-regexp end t)
(let* ((word (Man-match-substring 0))
!
(len (1- (length word))))
(if hyphenated
(setq word (concat hyphenated word)
hyphenated nil
--- 913,926 ----
(setq runningpoint (point))
(if (re-search-forward Man-hyphenated-reference-regexp end t)
(let* ((word (Man-match-substring 0))
!
(len (1- (length word)))
!
(inhibit-read-only t))
! (add-text-properties (match-beginning 0) (match-end 0)
! `(mouse-face highlight
!
keymap Man-mode-reference-map
!
help-echo "mouse-2: \
! follow this reference"
!
Man-manual-reference ,word))
(if hyphenated
(setq word (concat hyphenated word)
hyphenated nil
***************
*** 1121,1126 ****
--- 1137,1151 ----
(Man-getpage-in-background
(Man-translate-references (aheadsym Man-refpages-alist)))))
+ (defun Man-mouse-follow-manual-reference (click)
+ "Get the highlighted manpage under the mouse."
+ (interactive "e")
+ (save-excursion
+ (set-buffer (window-buffer (posn-window (event-start click))))
+ (Man-follow-manual-reference
+ (get-text-property (posn-point (event-start click))
+
'Man-manual-reference))))
+
(defun Man-kill ()
"Kill the buffer containing the manpage."
(interactive)
--
Kevin Rodgers
next parent reply other threads:[~2004-04-20 18:02 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
[not found] <mailman.460.1082403123.1061.bug-gnu-emacs@gnu.org>
2004-04-20 18:02 ` Kevin Rodgers [this message]
[not found] ` <mailman.538.1082484399.1061.bug-gnu-emacs@gnu.org>
2004-04-21 14:40 ` man mode mouse over SEE ALSO items Kevin Rodgers
2004-04-23 18:47 ` Kevin Rodgers
2004-04-19 1:19 Dan Jacobson
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=16517.26054.118955.117704@ihs.com \
--to=ihs_4664@yahoo.com \
/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).