branch: scratch/hyperbole
commit e6fb78262169e82d96c579d3515dc42b16de6e23
Author: Stefan Monnier <monn...@iro.umontreal.ca>
Commit: Stefan Monnier <monn...@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)
