~rgrjr/rgr-hacks

500c921298de8fbb376179e790e2b4e856774e29 — Bob Rogers 6 months ago 9ea28e5
Don't use debbugs-browse-url, plus other init file cleanup

* emacs-init.el:
   + Tweak browse-url-default-handlers to remove debbugs-browse-url for
     Emacs bugs.
   + Clean up obsolete ssh-host-history hosts.
   + Move the vm-mode init up with other vm stuff.
1 files changed, 7 insertions(+), 12 deletions(-)

M emacs-init.el
M emacs-init.el => emacs-init.el +7 -12
@@ 152,6 152,8 @@ but it is usually sufficient to take the default.")
(add-hook 'mail-setup-hook 'rgr-mail-setup-hook)
(add-hook 'mail-setup-hook 'rgr-mail-abbrevs-setup)
(add-hook 'mail-citation-hook 'rgr-vm-mail-citation-hook)
;; Oops; vm doesn't do this.  -- rgr, 27-Nov-00.
(add-to-list 'auto-mode-alist '("INBOX$\\|[^/.]\\.vm$" . vm-mode))
(if (and (eq rgr-site 'home)
	 (not (equal (user-real-login-name) "root"))
	 (let ((conn (getenv "SSH_CONNECTION")))


@@ 235,9 237,6 @@ but it is usually sufficient to take the default.")
(add-hook 'matlab-shell-mode-hook 'rgr-matlab-shell-mode-hook)
(add-hook 'command-history-hook 'rgr-command-history-hook)

;; Oops; vm doesn't do this.  -- rgr, 27-Nov-00.
(add-to-list 'auto-mode-alist '("INBOX$\\|[^/.]\\.vm$" . vm-mode))

;; Set up html-mode.
(add-hook 'html-mode-hook 'rgr-sgml-define-commands)



@@ 247,18 246,14 @@ but it is usually sufficient to take the default.")
(setq browse-url-browser-function
      (if (member (system-name) '("orion" "scorpio"))
	  'browse-url-chromium 'browse-url-firefox))

;; Emacs/W3
(add-hook 'w3-load-hook 'rgr-w3-load-hook)
;; wiki-remote stuff.
(autoload 'wiki-remote-get "wiki-remote.el" "Get wiki PAGE from wiki NAME." t)
;; Don't use debbugs-browse-url to go to Emacs bugs.
(when (eq (cdr (car browse-url-default-handlers)) 'debbugs-browse-url)
  (pop browse-url-default-handlers))

;; M-x ssh.  -- rgr, 1-Aug-03.
(setq ssh-host-history
      (append (if (eq rgr-site 'mgi)
		  '("yuggoth" "granada")
		  '("rogers@lincoln.modulargenetics.com"))
	      '("rogers@rgrjr.dyndns.org")))
      '(("rogers@lincoln.modulargenetics.com"
	 "rogers@rgrjr.dyndns.org")))
(if (eq rgr-site 'home)
    ;; Enable tunnelling to make the ModGen database and intranet Web servers
    ;; available from home.  -- rgr, 29-Feb-04.