;;;;;;;;; -*- 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 macro �$(B$J$N$G, �$(B:G8e$N t t �$(B$rK:$l$:$K$D$1$k$3$H ;; browse-url-plus-compose-mail �$(B$*$h$S browse-url-plus-wget-url �$(B$O4X?t$J$N$G ;; �$(B:G8e$O t �$(B$@$1$G$h$$ (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~$_: GNU Emacs �$(B$G$O<+F0E*$K9T$o$l$^$9 ;; XEmacs �$(B$N load-path �$(B$N$H$*$C$?$H$3$m$K, ;; GNU Emacs �$(B$+$i thingatpt.el �$(B$r$O$C$F$*$$$F$/$@$5$$. (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 URL �$(B$r<u$1<h$C$?$H$-$K8F$V4X?t$N;XDj ;; (�$(B@53N$K$O, browse-url-plus-compose-mail �$(BFbIt$G8F$P$l$k4X?t) (setq browse-url-plus-compose-mail-function 'wl-draft) ;; wget �$(B=*N;8e$K beep �$(B$rLD$i$9 (setq browse-url-plus-wget-beep-when-finished t) ;; browse-url �$(BF1Ey$N4X?t$r$R$H$D:n@. (browse-url-plus browse-url-alternative "URL to wget: " browse-url-alternative-browser-function) ;; �$(B%V%i%&%68F$S=P$74X?t$NDj5A (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 ;; C-return �$(B$G%V%i%&%65/F0, M-return �$(B$G 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 ;;