summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el8
-rw-r--r--lisp/+zzz-to-char.el16
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