about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2022-01-05 17:12:03 -0600
committerCase Duckworth2022-01-05 17:12:03 -0600
commit084618a930ddbe57903924e0635e5ca83c7dcb5c (patch)
treea5edc8b2fc10e0758b585ffcaadbd114ead9184e
parentAdd form-feed (diff)
downloademacs-084618a930ddbe57903924e0635e5ca83c7dcb5c.tar.gz
emacs-084618a930ddbe57903924e0635e5ca83c7dcb5c.zip
Break function into library
-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