[elpa] externals/ergoemacs-mode fdafbdf 049/325: Cleanup

[Stefan Monnier]

branch: externals/ergoemacs-mode
commit fdafbdf63a08c739a12ff3092321826fe5b5216a
Author: Walter Landry <wlandry@caltech.edu>
Commit: Walter Landry <wlandry@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)