a few emacs updates before it dies again

This commit is contained in:
Hunter Haugen 2011-08-10 23:07:25 +10:00
parent 9687968e8e
commit df703dc9e8

View file

@ -206,8 +206,8 @@
("M-a" beginning-of-line) ("M-a" beginning-of-line)
("M-o" other-window) ("M-o" other-window)
("M-O" other-window) ("M-O" other-window)
("M-`" switch-to-next-frame) ("M-`" next-window)
("M-~" switch-to-previous-frame) ("M-~" previous-window)
("M-RET" ns-toggle-fullscreen) ("M-RET" ns-toggle-fullscreen)
)) ))
@ -257,25 +257,25 @@
;; ("#nihongo" . iso-2022-jp) ;; ("#nihongo" . iso-2022-jp)
;; ("#" . iso-latin-1) ;; ("#" . iso-latin-1)
;; ("#" . iso-latin-1)))) ;; ("#" . iso-latin-1))))
(autoload 'erc "erc") ;; (autoload 'erc "erc")
(add-hook 'erc-mode-hook ;; (add-hook 'erc-mode-hook
'(lambda () ;; '(lambda ()
(setq scroll-margin 0) ;; (setq scroll-margin 0)
(setq erc-scrolltobottom-mode 1))) ;; (setq erc-scrolltobottom-mode 1)))
(load "~/.emacs.d/erc-bip") ;; Passwords here ;; (load "~/.emacs.d/erc-bip") ;; Passwords here
(defun ido-erc-buffer() ;; (defun ido-erc-buffer()
(interactive) ;; (interactive)
(switch-to-buffer ;; (switch-to-buffer
(ido-completing-read "Channel:" ;; (ido-completing-read "Channel:"
(save-excursion ;; (save-excursion
(delq ;; (delq
nil ;; nil
(mapcar (lambda (buf) ;; (mapcar (lambda (buf)
(when (buffer-live-p buf) ;; (when (buffer-live-p buf)
(with-current-buffer buf ;; (with-current-buffer buf
(and (eq major-mode 'erc-mode) ;; (and (eq major-mode 'erc-mode)
(buffer-name buf))))) ;; (buffer-name buf)))))
(buffer-list))))))) ;; (buffer-list)))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;