mlf176f2 pushed a commit to branch externals/ergoemacs-mode in repository elpa.
commit fe25bfa78588d577dd31b043cbaa4d59a14d071f Author: Matthew L. Fidler <[email protected]> Date: Wed Jul 2 20:55:50 2014 -0500 Should fix Issue #251 --- ergoemacs-menus.el | 9 +++++++-- ergoemacs-themes.el | 2 ++ 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/ergoemacs-menus.el b/ergoemacs-menus.el index bbd4056..669d014 100644 --- a/ergoemacs-menus.el +++ b/ergoemacs-menus.el @@ -906,7 +906,8 @@ All other modes are assumed to be minor modes or unimportant. ,(if (eq system-type 'darwin) "Help" "?"))) ;; Preprocess menu keybindings... - +(defvar recentf-mode) +(declare-function recentf-show-menu "recentf.el") (defun ergoemacs-menus-on () "Turn on ergoemacs menus instead of emacs menus." (interactive) @@ -925,12 +926,16 @@ All other modes are assumed to be minor modes or unimportant. (define-key-after global-map [menu-bar view] (cons "View" ergoemacs-menu-bar-view-menu) 'search) (define-key-after global-map [menu-bar languages] - (cons "Languages" (ergoemacs-get-major-modes)) 'view)) + (cons "Languages" (ergoemacs-get-major-modes)) 'view) + (when recentf-mode + (recentf-show-menu))) (defun ergoemacs-menus-off () "Turn off ergoemacs menus instead of emacs menus" (interactive) (define-key global-map [menu-bar file] (cons "File" ergoemacs-menu-bar-old-file-menu)) + (when recentf-mode + (recentf-show-menu)) (define-key global-map [menu-bar edit] (cons "Edit" ergoemacs-menu-bar-old-edit-menu)) (define-key global-map [menu-bar search] nil) (define-key global-map [menu-bar view] nil) diff --git a/ergoemacs-themes.el b/ergoemacs-themes.el index e46316a..af75e10 100644 --- a/ergoemacs-themes.el +++ b/ergoemacs-themes.el @@ -58,6 +58,8 @@ (undo-tree-mode 1) (shift-select-mode t) (delete-selection-mode 1) + (setq recentf-menu-before "Close") + (recentf-mode 1) ;; (setq cua--rectangle-modifier-key ergoemacs-cua-rect-modifier) ;; (setq cua--rectangle-keymap (make-sparse-keymap)) ;; (setq cua--rectangle-initialized nil)
