From f2740025ad5cf6dd04fc13090235a4e7e5962959 Mon Sep 17 00:00:00 2001 From: Andreas Gerler Date: Sat, 25 Nov 2023 11:36:53 +0100 Subject: [PATCH] fix guide-key Signed-off-by: Andreas Gerler --- elpa/guide-key-20150108.635/guide-key.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/elpa/guide-key-20150108.635/guide-key.el b/elpa/guide-key-20150108.635/guide-key.el index 399df7a9..bf442c99 100644 --- a/elpa/guide-key-20150108.635/guide-key.el +++ b/elpa/guide-key-20150108.635/guide-key.el @@ -495,7 +495,7 @@ For example, both \"C-x r\" and \"\\C-xr\" are converted to [24 114]" (when (> (setq fkey-list-len (length fkey-list)) 0) ;; fontify following keys as string (setq fkey-str-list - (loop for (key space command) in fkey-list + (cl-loop for (key space command) in fkey-list collect (guide-key/fontified-string key space command regexp))) ;; insert a few following keys per line (guide-key/insert-following-key fkey-str-list @@ -518,7 +518,7 @@ is popped up at left or right." (floor (/ (frame-width) (* (apply 'max (mapcar 'length fkey-str-list)) scale)))))) ;; Insert following keys by columns per line. - (loop for fkey-str in fkey-str-list + (cl-loop for fkey-str in fkey-str-list for column from 1 do (insert fkey-str (if (= (mod column columns) 0) "\n" " "))) (align-regexp (point-min) (point-max) "\\(\\s-*\\) \\[" 1 1 t))) @@ -546,7 +546,7 @@ appropriate face is not found." (when (string-match regexp string) 'guide-key/highlight-command-face)) ((listp regexp) - (loop for elm in regexp + (cl-loop for elm in regexp if (cond ((stringp elm) (when (string-match elm string) 'guide-key/highlight-command-face)) -- 2.47.3