mlf176f2 pushed a commit to branch externals/ergoemacs-mode in repository elpa.
commit ce438f083706c4958c92ac1b8b43eed4543fad7e Author: Matthew L. Fidler <[email protected]> Date: Sun Jun 22 21:11:43 2014 -0500 Fix Issue #233 --- ergoemacs-menus.el | 13 ++++--------- 1 files changed, 4 insertions(+), 9 deletions(-) diff --git a/ergoemacs-menus.el b/ergoemacs-menus.el index d27415c..e0f76b9 100644 --- a/ergoemacs-menus.el +++ b/ergoemacs-menus.el @@ -603,20 +603,15 @@ All other modes are assumed to be minor modes or unimportant. (defun ergoemacs-menu-tabbar-toggle () "Enables/Disables (and installs if not present) a tab-bar for emacs." (interactive) + (require 'package) (if (not (fboundp 'tabbar-mode)) - (progn + (let ((package-archives '(("melpa" . "http://melpa.milkbox.net/packages/";)))) (require 'tabbar-ruler nil t) (if (fboundp 'tabbar-install-faces) (tabbar-install-faces) - (when (fboundp 'package-install)` - (ergoemacs-pushnew '("melpa" . "http://melpa.milkbox.net/packages/";) - package-archives - :test 'equal ) - (when (< emacs-major-version 24) - (ergoemacs-pushnew '("melpa" . "http://melpa.milkbox.net/packages/";) - package-archives - :test 'equal)) + (when (fboundp 'package-install) (package-refresh-contents) + (package-initialize) (package-install 'tabbar-ruler) (require 'tabbar-ruler nil t) (tabbar-install-faces))))
