* emacs/: more WIP

This commit is contained in:
Dirk-Jan C. Binnema
2011-08-02 21:27:59 +03:00
parent bdf1237c34
commit b39b33b82d
5 changed files with 118 additions and 31 deletions

View File

@ -114,7 +114,7 @@ function returns the resulting name"
(defvar mu-view-mode-map
(let ((map (make-sparse-keymap)))
(define-key map "q" 'mu-view-quit-buffer)
(define-key map "q" 'mu-quit-buffer)
(define-key map "s" 'mu-find)
(define-key map "f" 'mu-forward)
(define-key map "r" 'mu-reply)
@ -144,10 +144,4 @@ function returns the resulting name"
(when (mu-find-prev)
(mu-view (mu-get-path)))))
(defun mu-view-quit-buffer ()
"quit this buffer and return to the find buffer"
(interactive)
(mu-quit-buffer)
(switch-to-buffer mu-find-buffer-name))
(provide 'mu-view)