diff options
-rw-r--r-- | init.el | 8 | ||||
-rw-r--r-- | lisp/+zzz-to-char.el | 16 |
2 files changed, 19 insertions, 5 deletions
diff --git a/init.el b/init.el index 84dfceb..51bcf31 100644 --- a/init.el +++ b/init.el | |||
@@ -1320,8 +1320,6 @@ See also `crux-reopen-as-root-mode'." | |||
1320 | (setup (:straight zoom-frm)) | 1320 | (setup (:straight zoom-frm)) |
1321 | 1321 | ||
1322 | (setup (:straight zzz-to-char) | 1322 | (setup (:straight zzz-to-char) |
1323 | (:+key "M-z" (lambda (prefix) | 1323 | (:require +zzz-to-char) |
1324 | "Call `zzz-to-char' or `zzz-up-to-char' with PREFIX arg." | 1324 | (:option zzz-to-char-reach 1024) |
1325 | (interactive "P") | 1325 | (:global "M-z" #'+zzz-to-char)) |
1326 | (call-interactively | ||
1327 | (if prefix #'zzz-up-to-char #'zzz-to-char))))) | ||
diff --git a/lisp/+zzz-to-char.el b/lisp/+zzz-to-char.el new file mode 100644 index 0000000..b3f27f7 --- /dev/null +++ b/lisp/+zzz-to-char.el | |||
@@ -0,0 +1,16 @@ | |||
1 | ;;; +zzz-to-char.el -*- lexical-binding: t; -*- | ||
2 | |||
3 | ;;; Commentary: | ||
4 | |||
5 | ;; | ||
6 | |||
7 | ;;; Code: | ||
8 | |||
9 | (defun +zzz-to-char (prefix) | ||
10 | "Call `zzz-to-char' or `zzz-up-to-char' with PREFIX arg." | ||
11 | (interactive "P") | ||
12 | (call-interactively | ||
13 | (if prefix #'zzz-up-to-char #'zzz-to-char))) | ||
14 | |||
15 | (provide '+zzz-to-char) | ||
16 | ;;; +zzz-to-char.el ends here | ||