bidi, super, and rlist-verbose.

* basic.el (bidi-paragraph-direction):
(bidi-inhibit-bpa): Setting the direction of the text to speed
redisplay up.

(global-map): Use bitwise or with (ash 1 23) to have the effect of
super.

* init.el ("rlist"): List all the contents of the registers.

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