branch: externals/ergoemacs-mode
commit fdafbdf63a08c739a12ff3092321826fe5b5216a
Author: Walter Landry <wlan...@caltech.edu>
Commit: Walter Landry <wlan...@caltech.edu>
Cleanup
---
ergoemacs-command-loop.el | 1 -
ergoemacs-functions.el | 6 ------
ergoemacs-map-properties.el | 2 --
ergoemacs-mode.el | 9 ---------
4 files changed, 18 deletions(-)
diff --git a/ergoemacs-command-loop.el b/ergoemacs-command-loop.el
index 0c4b8f9..2d319ce 100644
--- a/ergoemacs-command-loop.el
+++ b/ergoemacs-command-loop.el
@@ -69,7 +69,6 @@
(declare-function ergoemacs-translation-struct-p "ergoemacs-translate")
(declare-function ergoemacs-translation-struct-text "ergoemacs-translate")
(declare-function ergoemacs-translation-struct-translation
"ergoemacs-translate")
-(declare-function ergoemacs-translation-struct-unchorded "ergoemacs-translate")
(declare-function ergoemacs-key-description--modifier
"ergoemacs-key-description")
diff --git a/ergoemacs-functions.el b/ergoemacs-functions.el
index 90d1edc..df106c8 100644
--- a/ergoemacs-functions.el
+++ b/ergoemacs-functions.el
@@ -2385,8 +2385,6 @@ Guillemet -> quote, degree -> @, s-zed -> ss, upside-down
?! -> ?!."
(setq nbn (generate-new-buffer-name nbn))
(rename-buffer nbn))))
-;; (add-hook 'dirtrack-directory-change-hook
'ergoemacs-shell-here-directory-change-hook)
-
(defun ergoemacs-shell-here-hook ()
"Hook for `ergoemacs-shell-here'.
Sends shell prompt string to process, then turns on
@@ -2412,8 +2410,6 @@ Sends shell prompt string to process, then turns on
(shell-dirtrack-mode -1)
(dirtrack-mode 1))))))
-;; (add-hook 'shell-mode-hook 'ergoemacs-shell-here-hook)
-
(defun ergoemacs-shell-here (&optional shell-program buffer-prefix)
"Runs/switches to a shell process in the current directory."
(interactive)
@@ -2437,8 +2433,6 @@ Sends shell prompt string to process, then turns on
(ergoemacs-shell-here nil "MSYS"))
(error "Need to specify `ergoemacs-msys'.")))
-;; (add-hook 'eshell-post-command-hook
'ergoemacs-shell-here-directory-change-hook)
-
(defun ergoemacs-eshell-here ()
"Run/switch to an `eshell' process in the current directory"
(interactive)
diff --git a/ergoemacs-map-properties.el b/ergoemacs-map-properties.el
index a272116..b360958 100644
--- a/ergoemacs-map-properties.el
+++ b/ergoemacs-map-properties.el
@@ -814,8 +814,6 @@ When LABEL-EMPTY-P is non-nil, also label empty maps."
(mapatoms #'ergoemacs-map-properties--label-map))
;; Startup and load functions
-;;(add-hook 'ergoemacs-mode-after-init-emacs
'ergoemacs-map-properties--label-unlabeled)
-;;(add-hook 'ergoemacs-mode-after-load-hook
'ergoemacs-map-properties--label-unlabeled)
(defun ergoemacs-map-properties--label-known ()
"Label known maps."
diff --git a/ergoemacs-mode.el b/ergoemacs-mode.el
index ebdefdb..2cf2622 100644
--- a/ergoemacs-mode.el
+++ b/ergoemacs-mode.el
@@ -577,22 +577,13 @@ When STORE-P is non-nil, save the tables."
ergoemacs-theme-engine
ergoemacs-translate
ergoemacs-macros
- ;; ergoemacs-themes
))
(unless (featurep pkg)
(ergoemacs-timing (intern (format "load-%s" pkg))
(load (symbol-name pkg)))))
(require 'unicode-fonts nil t)
-;; (when (featurep 'unicode-fonts)
-;; (require 'persistent-soft nil t)
-;; (when (featurep 'persistent-soft)
-;; (unicode-fonts-setup)))
-
-
(defcustom ergoemacs-use-unicode-symbols nil
- ;; (and (featurep 'persistent-soft)
- ;; (featurep 'unicode-fonts))
"Use unicode symbols in display."
:type 'boolean
:group 'ergoemacs-mode)
