From 54fc2884baaf68a8bf5ab8033c64512056215a82 Mon Sep 17 00:00:00 2001 From: JSDurand Date: Thu, 25 Feb 2021 18:43:04 +0800 Subject: 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. --- basic.el | 11 +++++++++-- init.el | 3 ++- 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 -- cgit v1.2.3-18-g5258