home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.madoka.org
/
2014.12.ftp.madoka.org.tar
/
ftp.madoka.org
/
pub
/
irchat-pj
/
2.5
/
irchat-pj-2.5.6p.tar.gz
/
irchat-pj-2.5.6p.tar
/
irchat-pj-2.5.6p
/
doc24
/
browse-url-plus-init.el
next >
Wrap
Lisp/Scheme
|
2000-07-31
|
3KB
|
66 lines
;;;;;;;;; -*- Emacs-Lisp -*- ;;;;;;;;;
;;
;; browse-url-plus.emacs
;; initial setting file for browse-url-plus
;; Wed, 27 Jan 1999, by simm@irc.fan.gr.jp and irchat-PJ Project
;; last modified by simm@irc.fan.gr.jp, 27 Jun 1999
;;
;; auto-load
;; browse-url-plus $(B$O(B macro $(B$J$N$G(B, $(B:G8e$N(B t t $(B$rK:$l$:$K$D$1$k$3$H(B
;; browse-url-plus-compose-mail $(B$*$h$S(B browse-url-plus-wget-url $(B$O4X?t$J$N$G(B
;; $(B:G8e$O(B t $(B$@$1$G$h$$(B
(autoload 'browse-url-plus "browse-url-plus" "A little-extension for browse-url" t t)
(autoload 'browse-url-plus-compose-mail
"browse-url-plus" "A little-extension for browse-url" t)
(autoload 'browse-url-plus-wget-url
"browse-url-plus" "A little-extension for browse-url" t)
(autoload 'browse-url-plus-x
"browse-url-plus" "A little-extension for browse-url" t)
;; thingatpt.el $(B$NFI$_9~$_(B: GNU Emacs $(B$G$O<+F0E*$K9T$o$l$^$9(B
;; XEmacs $(B$N(B load-path $(B$N$H$*$C$?$H$3$m$K(B,
;; GNU Emacs $(B$+$i(B thingatpt.el $(B$r$O$C$F$*$$$F$/$@$5$$(B.
(if (and (featurep 'xemacs) (>= 20 emacs-major-version))
(progn
(load "thingatpt")
(autoload 'browse-url-plus-x "browse-url-plus" "A little-extension for browse-url" t)))
;; mailto: $(B7A<0$N(B URL $(B$r<u$1<h$C$?$H$-$K8F$V4X?t$N;XDj(B
;; ($(B@53N$K$O(B, browse-url-plus-compose-mail $(BFbIt$G8F$P$l$k4X?t(B)
(setq browse-url-plus-compose-mail-function 'wl-draft)
;; wget $(B=*N;8e$K(B beep $(B$rLD$i$9(B
(setq browse-url-plus-wget-beep-when-finished t)
;; browse-url $(BF1Ey$N4X?t$r$R$H$D:n@.(B
(browse-url-plus browse-url-alternative "URL to wget: "
browse-url-alternative-browser-function)
;; $(B%V%i%&%68F$S=P$74X?t$NDj5A(B
(setq browse-url-browser-function
'(("^mailto:" . browse-url-plus-compose-mail)
("." . browse-url-netscape)))
(setq browse-url-alternative-browser-function
'(("^mailto:" . browse-url-plus-compose-mail)
("." . browse-url-plus-wget-url)))
;; $(B%-!<%P%$%s%I(B
;; C-return $(B$G%V%i%&%65/F0(B, M-return $(B$G(B wget
(cond ((featurep 'xemacs)
(define-key global-map [(control return)] 'browse-url-plus-x)
(define-key global-map [(meta return)] 'browse-url-alternative))
((<= 20 xemacs-major-version)
(define-key global-map [C-return] 'browse-url)
(define-key global-map [M-return] 'browse-url-alternative))
(t
(define-key global-map [C-return] 'browse-url-plus-x)
(define-key global-map [M-return] 'browse-url-alternative)))
;;
;; end
;;