summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--basic.el11
-rw-r--r--init.el3
2 files changed, 11 insertions, 3 deletions
diff --git a/basic.el b/basic.el
index f8dd47f..eb7ab1e 100644
--- a/basic.el
+++ b/basic.el
@@ -6,6 +6,11 @@
(set 'eval-expression-print-length nil) ;; A value of nil means no limit.
(set 'eval-expression-print-level nil) ;; A value of nil means no limit.
+;;; Setting the direction of the text can speed things up.
+
+(set-default 'bidi-paragraph-direction 'left-to-right)
+(set 'bidi-inhibit-bpa t)
+
;;; resize horizontally
(set 'fit-window-to-buffer-horizontally t)
@@ -374,8 +379,10 @@ window horizontally."
(define-key global-map (vector ?\s-&) #'delete-other-windows)
(define-key global-map (vector ?\s-é) #'split-window-below)
;; The following binds the key ?\s-" represented as a number, since
-;; otherwise it would be interpreted as a string quote.
-(define-key global-map (vector 8388642) #'split-window-right)
+;; otherwise it would be interpreted as a string quote. Here #x22 = 34
+;; is the character code of the quote, and bitwise or with (ash 1 23)
+;; is the effect of super.
+(define-key global-map (vector (logior (ash 1 23) #x22)) #'split-window-right)
(define-key global-map (vector ?\s-à) #'delete-window)
(define-key global-map (vector ?\C-+) #'durand-enlarge-window)
(define-key global-map (vector ?\C-=) #'durand-shrink-window)
diff --git a/init.el b/init.el
index d0c205a..1f879db 100644
--- a/init.el
+++ b/init.el
@@ -184,7 +184,8 @@ no effect."
(use-package "rlist" 'rlist
(define-key global-map (vector ?\C-x ?r ?L) #'rlist-list-registers)
- (setq rlist-expert t))
+ (setq rlist-expert t)
+ (setq rlist-verbose t))
;;; ibuffer