From: Reiner Steib <4uce.02.r.steib@gmx.net>
Subject: Re: [patch] More buttons for emacs stuff, MIDs, mail addresses
Date: Tue, 24 Sep 2002 22:29:18 +0200 [thread overview]
Message-ID: <v9k7lb8735.fsf@marauder.physik.uni-ulm.de> (raw)
In-Reply-To: <yotl1y7k9qhb.fsf@jpl.org> (Katsumi Yamaoka's message of "Tue, 24 Sep 2002 09:32:47 +0900")
[-- Attachment #1: Type: text/plain, Size: 690 bytes --]
On Tue, Sep 24 2002, Katsumi Yamaoka wrote:
>>>>>> In <vafn0q8h46a.fsf@lucy.cs.uni-dortmund.de>
>>>>>> grossjoh@lothlorien.cs.uni-dortmund.de (Kai Großjohann) wrote:
>
>> Committed. Please test.
>
> Unfortunately, XEmacs doesn't have the command apropos-variable.
The attached patch uses `apropos' for XEmacs and ...
* gnus-art.el (gnus-button-guessed-mid-regexp): Improved regexp.
(gnus-button-handle-describe-{function,variable,key},
gnus-button-handle-apropos{,-command}): Fixed typos in doc-strings.
(gnus-button-handle-apropos-variable): Use `apropos' in XEmacs.
(gnus-button-alist): Fixed missing "RET" and allow more
whitespace in "M-x apropos" regexps.
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: buttons.03.patch --]
[-- Type: text/x-patch, Size: 4960 bytes --]
Index: gnus-art.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus-art.el,v
retrieving revision 6.241
diff -u -w -r6.241 gnus-art.el
--- gnus-art.el 2002/09/24 17:16:49 6.241
+++ gnus-art.el 2002/09/24 20:20:57
@@ -5295,7 +5295,8 @@
(defcustom gnus-button-guessed-mid-regexp
(concat
"^<?\\(slrn\\|Pine\\.\\)"
- "\\|\\.fsf@\\|\\.ln@\\|@4ax\\.com\\|@ID-[0-9]+\\.[a-zA-Z]+\\.dfncis\\.de"
+ "\\|\\.fsf@\\|\\.fsf_-_@\\|\\.ln@"
+ "\\|@4ax\\.com\\|@ID-[0-9]+\\.[a-zA-Z]+\\.dfncis\\.de"
"\\|^<?.*[0-9].*[0-9].*[0-9].*[0-9].*[0-9].*[0-9].*@")
"Regular expression that matches message IDs and not mail addresses."
;; TODO: Incorporate more matches from
@@ -5331,16 +5332,16 @@
"Follow a Custom URL."
(customize-apropos (gnus-url-unhex-string url)))
-(defvar gnus-button-handle-describe-prefix "^\\(C-h\\|<?[F1]1>?\\)")
+(defvar gnus-button-handle-describe-prefix "^\\(C-h\\|<?[Ff]1>?\\)")
(defun gnus-button-handle-describe-function (url)
- "Call describe-function when pushing the corresponing URL button."
+ "Call describe-function when pushing the corresponding URL button."
(describe-function
(intern
(gnus-replace-in-string url gnus-button-handle-describe-prefix ""))))
(defun gnus-button-handle-describe-variable (url)
- "Call describe-variable when pushing the corresponing URL button."
+ "Call describe-variable when pushing the corresponding URL button."
(describe-variable
(intern
(gnus-replace-in-string url gnus-button-handle-describe-prefix ""))))
@@ -5348,21 +5349,21 @@
;; FIXME: Is is possible to implement this? Else it should be removed here
;; and in `gnus-button-alist'.
(defun gnus-button-handle-describe-key (url)
- "Call describe-key when pushing the corresponing URL button."
+ "Call describe-key when pushing the corresponding URL button."
(error "not implemented"))
-(defun gnus-button-handle-apropos (url)
- "Call apropos when pushing the corresponing URL button."
- (apropos (gnus-replace-in-string url gnus-button-handle-describe-prefix "")))
-
(defun gnus-button-handle-apropos-command (url)
- "Call apropos when pushing the corresponing URL button."
- (apropos-command (gnus-replace-in-string url
- gnus-button-handle-describe-prefix "")))
+ "Call apropos when pushing the corresponding URL button."
+ (apropos-command
+ (gnus-replace-in-string url gnus-button-handle-describe-prefix "")))
(defun gnus-button-handle-apropos-variable (url)
"Call apropos when pushing the corresponding URL button."
- (apropos-variable (gnus-replace-in-string url gnus-button-handle-describe-prefix "")))
+ (if (fboundp 'apropos-variable)
+ (apropos
+ (gnus-replace-in-string url gnus-button-handle-describe-prefix ""))
+ (apropos-variable
+ (gnus-replace-in-string url gnus-button-handle-describe-prefix ""))))
(defcustom gnus-button-man-level 5
"*Integer that says how many man-related buttons Gnus will show.
@@ -5414,18 +5415,18 @@
("M-x[ \t\n]customize-[^ ]+[ \t\n]RET[ \t\n]\\([^ ]+\\)[ \t\n]RET" 0
(>= gnus-button-emacs-level 1) gnus-button-handle-custom 1)
;; Emacs help commands
- ("M-x[ \t\n]apropos[ \t\n]\\([^ ]+\\)[ \t\n]RET"
+ ("M-x[ \t\n]+apropos[ \t\n]+RET[ \t\n]+\\([^ \t\n]+\\)[ \t\n]+RET"
;; regexp doesn't match arguments containing ` '.
0 (>= gnus-button-emacs-level 1) gnus-button-handle-apropos 1)
- ("M-x[ \t\n]apropos-command[ \t\n]\\([^ ]+\\)[ \t\n]RET" 0
- (>= gnus-button-emacs-level 1) gnus-button-handle-apropos-command 1)
- ("M-x[ \t\n]apropos-variable[ \t\n]\\([^ ]+\\)[ \t\n]RET" 0
- (>= gnus-button-emacs-level 1) gnus-button-handle-apropos-variable 1)
- ("\\W\\(C-h\\|<?[F1]1>?\\)[ \t\n]f[ \t\n]\\([^ ]+\\)[ \t\n]RET" 0
- (>= gnus-button-emacs-level 1) gnus-button-handle-describe-function 2)
- ("\\W\\(C-h\\|<?[F1]1>?\\)[ \t\n]v[ \t\n]\\([^ ]+\\)[ \t\n]RET" 0
- (>= gnus-button-emacs-level 1) gnus-button-handle-describe-variable 2)
- ("\\W\\(C-h\\|<?[F1]1>?\\)[ \t\n]k[ \t\n]\\([^ ]+\\)[ \t\n]" 0
+ ("M-x[ \t\n]+apropos-command[ \t\n]+RET[ \t\n]+\\([^ \t\n]+\\)[ \t\n]+RET"
+ 0 (>= gnus-button-emacs-level 1) gnus-button-handle-apropos-command 1)
+ ("M-x[ \t\n]+apropos-variable[ \t\n]+RET[ \t\n]+\\([^ \t\n]+\\)[ \t\n]+RET"
+ 0 (>= gnus-button-emacs-level 1) gnus-button-handle-apropos-variable 1)
+ ("\\W\\(C-h\\|<?[Ff]1>?\\)[ \t\n]+f[ \t\n]+\\([^ \t\n]+\\)[ \t\n]+RET"
+ 0 (>= gnus-button-emacs-level 1) gnus-button-handle-describe-function 2)
+ ("\\W\\(C-h\\|<?[Ff]1>?\\)[ \t\n]+v[ \t\n]+\\([^ \t\n]+\\)[ \t\n]+RET"
+ 0 (>= gnus-button-emacs-level 1) gnus-button-handle-describe-variable 2)
+ ("\\W\\(C-h\\|<?[Ff]1>?\\)[ \t\n]+k[ \t\n]+\\([^ \t\n]+\\)[ \t\n]+" 0
;; this regexp needs to be fixed!
(>= gnus-button-emacs-level 9) gnus-button-handle-describe-key 2)
;; This is how URLs _should_ be embedded in text...
[-- Attachment #3: Type: text/plain, Size: 116 bytes --]
Bye, Reiner.
--
,,,
(o o)
---ooO-(_)-Ooo--- PGP key available via WWW http://rsteib.home.pages.de/
next prev parent reply other threads:[~2002-09-24 20:29 UTC|newest]
Thread overview: 44+ messages / expand[flat|nested] mbox.gz Atom feed top
[not found] <lcoumukovevvjjmjdn1svsl8ns6316aoca@4ax.com>
[not found] ` <3D6FED17.6040201@yahoo.com.cn>
[not found] ` <m3ptvr2j4k.fsf@hartford-hwp.com>
[not found] ` <ilu8z2c4hl5.fsf@latte.josefsson.org>
[not found] ` <alfu5t$m59$1@quimby.gnus.org>
2002-09-09 12:43 ` Buttonize man page links Reiner Steib
2002-09-09 13:12 ` Simon Josefsson
2002-09-09 14:12 ` Reiner Steib
2002-09-09 14:16 ` Per Abrahamsen
2002-09-09 17:15 ` Andreas Fuchs
2002-09-10 7:26 ` Mats Lidell
2002-09-18 20:41 ` [patch] More buttons for emacs stuff, MIDs, mail addresses (was: Buttonize man page links) Reiner Steib
2002-09-19 11:42 ` [patch] More buttons for emacs stuff, MIDs, mail addresses Reiner Steib
2002-09-20 15:58 ` Kai Großjohann
2002-09-23 18:12 ` Reiner Steib
2002-09-23 19:55 ` Kai Großjohann
2002-09-24 0:32 ` Katsumi Yamaoka
2002-09-24 8:07 ` Kai Großjohann
2002-09-24 12:40 ` Katsumi Yamaoka
2002-09-24 20:28 ` XEmacs compiler warnings (was: [patch] More buttons for emacs stuff, MIDs, mail addresses) Reiner Steib
2002-09-25 13:16 ` XEmacs compiler warnings Kai Großjohann
2002-09-25 17:44 ` Reiner Steib
2002-09-24 20:29 ` Reiner Steib [this message]
2002-09-24 20:39 ` [patch] More buttons for emacs stuff, MIDs, mail addresses Paul Jarc
2002-09-24 22:15 ` Reiner Steib
2002-09-25 13:52 ` Kai Großjohann
2002-09-25 14:51 ` Reiner Steib
2002-09-25 15:02 ` Kai Großjohann
2002-09-24 19:28 ` Raymond Scholz
2002-09-24 19:49 ` Frank Schmitt
2002-09-24 20:56 ` Reiner Steib
2002-10-16 17:20 ` Raymond Scholz
2002-10-16 20:10 ` Raymond Scholz
2002-10-17 15:03 ` Reiner Steib
2002-12-29 17:55 ` Lars Magne Ingebrigtsen
2002-12-30 17:58 ` Reiner Steib
2003-01-01 19:09 ` Lars Magne Ingebrigtsen
2003-01-01 20:38 ` Reiner Steib
2003-01-01 20:59 ` Lars Magne Ingebrigtsen
2003-01-07 18:21 ` Docu and menu patches for message.el/message.texi (was: [patch] More buttons for emacs stuff, MIDs, mail addresses) Reiner Steib
2003-01-08 4:08 ` Docu and menu patches for message.el/message.texi Lars Magne Ingebrigtsen
2003-01-08 12:03 ` Reiner Steib
2003-01-08 12:28 ` Lars Magne Ingebrigtsen
2003-01-08 15:12 ` Reiner Steib
2003-01-08 16:05 ` Lars Magne Ingebrigtsen
2003-01-02 16:47 ` [patch] More buttons for emacs stuff, MIDs, mail addresses Reiner Steib
2003-01-02 18:00 ` Henrik Enberg
2003-01-02 18:16 ` Norbert Koch
2003-01-02 18:29 ` Lars Magne Ingebrigtsen
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=v9k7lb8735.fsf@marauder.physik.uni-ulm.de \
--to=4uce.02.r.steib@gmx.net \
--cc=reiner.steib@gmx.de \
/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).