home *** CD-ROM | disk | FTP | other *** search
/ ftp.madoka.org / 2014.12.ftp.madoka.org.tar / ftp.madoka.org / pub / irchat-pj / irchat-pj-2.4.24.22.tar.gz / irchat-pj-2.4.24.22.tar / irchat-pj-2.4.24.22 / doc / browse-url-plus-init.el next >
Lisp/Scheme  |  1999-12-17  |  3KB  |  66 lines
  1. ;;;;;;;;; -*- Emacs-Lisp -*- ;;;;;;;;;
  2.  
  3. ;;
  4. ;; browse-url-plus.emacs
  5. ;; initial setting file for browse-url-plus
  6. ;; Wed, 27 Jan 1999, by simm@irc.fan.gr.jp and irchat-PJ Project
  7. ;; last modified by simm@irc.fan.gr.jp, 27 Jun 1999
  8. ;;
  9.  
  10. ;; auto-load
  11. ;; 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
  12. ;; browse-url-plus-compose-mail $(B$*$h$S(B browse-url-plus-wget-url $(B$O4X?t$J$N$G(B
  13. ;; $(B:G8e$O(B t $(B$@$1$G$h$$(B
  14. (autoload 'browse-url-plus "browse-url-plus" "A little-extension for browse-url" t t)
  15. (autoload 'browse-url-plus-compose-mail
  16.   "browse-url-plus" "A little-extension for browse-url" t)
  17. (autoload 'browse-url-plus-wget-url
  18.   "browse-url-plus" "A little-extension for browse-url" t)
  19. (autoload 'browse-url-plus-x
  20.   "browse-url-plus" "A little-extension for browse-url" t)
  21.  
  22. ;; thingatpt.el $(B$NFI$_9~$_(B: GNU Emacs $(B$G$O<+F0E*$K9T$o$l$^$9(B
  23. ;; XEmacs $(B$N(B load-path $(B$N$H$*$C$?$H$3$m$K(B,
  24. ;; GNU Emacs $(B$+$i(B thingatpt.el $(B$r$O$C$F$*$$$F$/$@$5$$(B.
  25.  
  26. (if (and (featurep 'xemacs) (>= 20 emacs-major-version))
  27.     (progn
  28.       (load "thingatpt")
  29.       (autoload 'browse-url-plus-x "browse-url-plus" "A little-extension for browse-url" t)))
  30.  
  31. ;; mailto: $(B7A<0$N(B URL $(B$r<u$1<h$C$?$H$-$K8F$V4X?t$N;XDj(B
  32. ;; ($(B@53N$K$O(B, browse-url-plus-compose-mail $(BFbIt$G8F$P$l$k4X?t(B)
  33. (setq browse-url-plus-compose-mail-function 'wl-draft)
  34.  
  35. ;; wget $(B=*N;8e$K(B beep $(B$rLD$i$9(B
  36. (setq browse-url-plus-wget-beep-when-finished t)
  37.  
  38. ;; browse-url $(BF1Ey$N4X?t$r$R$H$D:n@.(B
  39. (browse-url-plus browse-url-alternative "URL to wget: "
  40.          browse-url-alternative-browser-function)
  41.  
  42. ;; $(B%V%i%&%68F$S=P$74X?t$NDj5A(B
  43. (setq browse-url-browser-function
  44.       '(("^mailto:" . browse-url-plus-compose-mail)
  45.     ("."        . browse-url-netscape)))
  46.  
  47. (setq browse-url-alternative-browser-function
  48.       '(("^mailto:" . browse-url-plus-compose-mail)
  49.     ("."        . browse-url-plus-wget-url)))
  50.  
  51. ;; $(B%-!<%P%$%s%I(B
  52. ;; C-return $(B$G%V%i%&%65/F0(B, M-return $(B$G(B wget
  53. (cond ((featurep 'xemacs)
  54.        (define-key global-map [(control return)] 'browse-url-plus-x)
  55.        (define-key global-map [(meta return)] 'browse-url-alternative))
  56.       ((<= 20 xemacs-major-version)
  57.        (define-key global-map [C-return] 'browse-url)
  58.        (define-key global-map [M-return] 'browse-url-alternative))
  59.       (t
  60.        (define-key global-map [C-return] 'browse-url-plus-x)
  61.        (define-key global-map [M-return] 'browse-url-alternative)))
  62.  
  63. ;;
  64. ;; end
  65. ;;
  66.