[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] scratch/hyperbole 842785ad7d 2/3: * hycontrol.el (hycontrol-windo
|
From: |
Stefan Monnier |
|
Subject: |
[elpa] scratch/hyperbole 842785ad7d 2/3: * hycontrol.el (hycontrol-windows-mode-map): Don't autoload |
|
Date: |
Mon, 1 May 2023 22:50:42 -0400 (EDT) |
branch: scratch/hyperbole
commit 842785ad7da97b8dcfed2ba2fb69c09b0d80233e
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
* hycontrol.el (hycontrol-windows-mode-map): Don't autoload
Copying this whole keymap definition to `hyperbole-autoloads.el` just
slows down startup unnecessarily.
---
hycontrol.el | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/hycontrol.el b/hycontrol.el
index 88139e0684..f164619014 100644
--- a/hycontrol.el
+++ b/hycontrol.el
@@ -359,7 +359,7 @@ The final predicate should always be t, for default values,
typically of zero.")
;;;###autoload
(eval-after-load "dired" '(define-key dired-mode-map "@"
'hycontrol-windows-grid))
-;;;###autoload
+
(defvar hycontrol-windows-mode-map
(let ((map (make-sparse-keymap)))
(suppress-keymap map t) ;; Disable self-inserting keys and prefix keys
@@ -428,11 +428,11 @@ The final predicate should always be t, for default
values, typically of zero.")
;; Don't call these interactively because a prefix arg of 1 tries
;; to make one window 1 line tall.
- (define-key map "\[" (lambda () (interactive)
(split-window-vertically)))
- (define-key map "\]" (lambda () (interactive)
(split-window-horizontally)))
+ (define-key map "[" (lambda () (interactive) (split-window-vertically)))
+ (define-key map "]" (lambda () (interactive)
(split-window-horizontally)))
- (define-key map "\(" 'hycontrol-save-frame-configuration)
- (define-key map "\)" 'hycontrol-restore-frame-configuration)
+ (define-key map "(" 'hycontrol-save-frame-configuration)
+ (define-key map ")" 'hycontrol-restore-frame-configuration)
(define-key map "~" (lambda () (interactive)
(unless (hycontrol-window-swap-buffers)