branch: externals/ergoemacs-mode
commit 1c2f61e390c6bc322f7d99d905d9aa25a0b2aa3f
Author: Walter Landry <wlan...@caltech.edu>
Commit: Walter Landry <wlan...@caltech.edu>
Remove tabbar-toddle since its only purpose is to download tabber
---
ergoemacs-lib.el | 26 --------------------------
ergoemacs-themes.el | 5 -----
2 files changed, 31 deletions(-)
diff --git a/ergoemacs-lib.el b/ergoemacs-lib.el
index 845533d..9ff6c62 100644
--- a/ergoemacs-lib.el
+++ b/ergoemacs-lib.el
@@ -48,7 +48,6 @@
(defvar package-archives)
-(defvar tabbar-mode)
(defvar ergoemacs-handle-ctl-c-or-ctl-x)
(defvar ergoemacs-dir)
@@ -77,10 +76,6 @@
(declare-function ergoemacs-component-find-definition "ergoemacs-component")
(declare-function ergoemacs-component-find-1 "ergoemacs-component")
-(declare-function tabbar-install-faces "tabbar-ruler")
-(declare-function tabbar-mode "tabbar")
-
-
(defun ergoemacs-setcdr (var val &optional default)
"Use `setcdr' on VAL to VAL.
If VAL is a symbol, use `ergoemacs-sv' to determine the value.
@@ -410,27 +405,6 @@ All other modes are assumed to be minor modes or
unimportant.
(separator1 menu-item "--")
(package menu-item "Manage Packages" list-packages))))
-(defun ergoemacs-menu-tabbar-toggle ()
- "Enables/Disables (and installs if not present) a tab-bar for emacs."
- (interactive)
- (require 'package nil t)
- (if (not (fboundp 'tabbar-mode))
- (let ((package-archives '(("melpa" . "http://melpa.org/packages/";))))
- (require 'tabbar-ruler nil t)
- (if (fboundp 'tabbar-install-faces)
- (tabbar-install-faces)
- (when (fboundp 'package-install)
- (package-refresh-contents)
- (package-initialize)
- (package-install 'tabbar-ruler)
- (require 'tabbar-ruler nil t)
- (tabbar-install-faces))))
- (if (not (featurep 'tabbar-ruler))
- (require 'tabbar-ruler nil t)
- (if tabbar-mode
- (tabbar-mode -1)
- (tabbar-mode 1)))))
-
(defun ergoemacs-menu--filter-key-shortcut (cmd &optional keymap)
"Figures out ergoemacs-mode menu's preferred key-binding for CMD."
(cond
diff --git a/ergoemacs-themes.el b/ergoemacs-themes.el
index ee95a4c..1dd6f68 100644
--- a/ergoemacs-themes.el
+++ b/ergoemacs-themes.el
@@ -1496,11 +1496,6 @@
(blink-cursor menu-item "Cursor Blink"
blink-cursor-mode
:button (:toggle . blink-cursor-mode))
- (tabbar-mode menu-item "Tabbar"
ergoemacs-menu-tabbar-toggle
- :button (:toggle . (and (boundp
'tabbar-mode)
- tabbar-mode)))
-
-
(separator-speedbar menu-item "--")
(showhide-speedbar menu-item "Speedbar"
speedbar-frame-mode :help "Display a Speedbar quick-navigation frame" :button
