emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] scratch/hyperbole 5aa8d7a577 10/16: * hycontrol.el (hycontrol-win


From: Stefan Monnier
Subject: [elpa] scratch/hyperbole 5aa8d7a577 10/16: * hycontrol.el (hycontrol-windows-mode-map): Don't autoload
Date: Mon, 19 Jun 2023 22:36:45 -0400 (EDT)

branch: scratch/hyperbole
commit 5aa8d7a577ce2ecb3a2666db9678b3a7c3611577
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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]