[elpa] 01/15: Should fix Issue #251

[Matthew Fidler]

mlf176f2 pushed a commit to branch externals/ergoemacs-mode
in repository elpa.

commit fe25bfa78588d577dd31b043cbaa4d59a14d071f
Author: Matthew L. Fidler <address@hidden>
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)