diff options
Diffstat (limited to 'eb.el')
| -rw-r--r-- | eb.el | 23 |
1 files changed, 13 insertions, 10 deletions
@@ -11,14 +11,15 @@ "Episode Browser development package." :prefix "eb-") -;; Disable ucs-utils for back-button-mode. -;; (when (equal system-type 'windows-nt) -;; (require 'ucs-utils) -;; (defun ucs-utils-char (name fallback &optional test) -;; (or (if (version< emacs-version "26") -;; (cdr (assoc-string name (ucs-names) t)) -;; (char-from-name name t)) -;; fallback))) +;; Disable ucs-utils (used by back-button-mode), which causes lag. +(when (and (equal system-type 'windows-nt) + (require 'back-button nil t) + (require 'ucs-utils nil t)) + (defun ucs-utils-char (name fallback &optional test) + (or (if (version< emacs-version "26") + (cdr (assoc-string name (ucs-names) t)) + (char-from-name name t)) + fallback))) ;; Truncate dired headers minor mode. @@ -204,7 +205,7 @@ (when (not eb--dired-truncate-lines--orig) (toggle-truncate-lines -1)) (when (not eb--dired-hide-details-mode--orig) (dired-hide-details-mode -1)) (when (not eb--dired-truncate-headers-mode--orig) (eb--dired-truncate-headers-mode -1)) - (message "close")))))) + (message "")))))) ;;;###autoload (defun eb-dired-here (&optional arg) @@ -346,7 +347,9 @@ (progn (setq eb-tool-bar-mode--old-map tool-bar-map) (when (require 'back-button nil t) - (back-button-mode 1)) + (setq-local back-button-mode-lighter nil) + (back-button-mode 1) + (assq-delete-all 'back-button-mode minor-mode-map-alist)) (let ((map (make-sparse-keymap))) ;; Windows, buffers and files. |