From: Hugues Lafarge <hugues@afp.com>
Subject: browsing URL's with rgnus-0.11 & Xemacs-19.14
Date: 14 Aug 1996 15:09:42 +0200 [thread overview]
Message-ID: <tq91bi3yeh.fsf@pinot.par.afp.com> (raw)
I'm not sure this is not due to my setup but i had to apply the
following patch to make it work:
--- rgnus-0.11/lisp/custom.el.orig Thu Jul 18 20:48:21 1996
+++ rgnus-0.11/lisp/custom.el Wed Aug 14 14:57:16 1996
@@ -153,6 +153,14 @@
into the buffer visible in the event's window."
(posn-point (event-start event))))
+(or (fboundp 'event-window)
+ ;; Missing in Emacs 19.29.
+ (defun event-window (event)
+ "Return the window of the given mouse event.
+This may be nil if the event occurred in the border or over a toolbar.
+The modeline is considered to be in the window it represents."
+ (posn-window (event-start event))))
+
(eval-when-compile
(defvar x-colors nil)
(defvar custom-button-face nil)
--- rgnus-0.11/lisp/gnus-art.el.orig Mon Aug 12 03:31:44 1996
+++ rgnus-0.11/lisp/gnus-art.el Wed Aug 14 14:50:43 1996
@@ -1374,8 +1374,8 @@
If the text under the mouse pointer has a `gnus-callback' property,
call it with the value of the `gnus-data' text property."
(interactive "e")
- (set-buffer (window-buffer (posn-window (event-start event))))
- (let* ((pos (posn-point (event-start event)))
+ (set-buffer (window-buffer (event-window event)))
+ (let* ((pos (event-point event))
(data (get-text-property pos 'gnus-data))
(fun (get-text-property pos 'gnus-callback)))
(if fun (funcall fun data))))
Did i miss something obvious?
--
Hugues Lafarge || Email: Hugues.Lafarge@afp.com
Agence France Presse || WWW: http://www.mygale.org/08/hugues
Ingenierie informatique || Phone: +33 1 40 41 77 15
13 pl de la bourse, 75002 Paris || Fax: +33 1 40 41 77 02
reply other threads:[~1996-08-14 13:09 UTC|newest]
Thread overview: [no followups] expand[flat|nested] mbox.gz Atom feed
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
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=tq91bi3yeh.fsf@pinot.par.afp.com \
--to=hugues@afp.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.
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 NNTP newsgroup(s).