summary refs log tree commit diff stats
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/+modeline.el6
-rw-r--r--lisp/+org.el2
-rw-r--r--lisp/+scratch.el3
3 files changed, 5 insertions, 6 deletions
diff --git a/lisp/+modeline.el b/lisp/+modeline.el index 300787a..9ebeb83 100644 --- a/lisp/+modeline.el +++ b/lisp/+modeline.el
@@ -224,9 +224,9 @@ The order of elements matters: whichever one matches first is applied."
224 (:propertize (line-number-mode 224 (:propertize (line-number-mode
225 ((column-number-mode 225 ((column-number-mode
226 (column-number-indicator-zero-based 226 (column-number-indicator-zero-based
227 ,(concat before "%3l" sep "%2c" after) 227 ,(concat before "%2l" sep "%2c" after)
228 ,(concat before "%3l" sep "%2C" after)) 228 ,(concat before "%2l" sep "%2C" after))
229 ,(concat before "%3l" sep "" after))) 229 ,(concat before "%2l" sep "" after)))
230 ((column-number-mode 230 ((column-number-mode
231 (column-number-indicator-zero-based 231 (column-number-indicator-zero-based
232 ,(concat before sep "%2c" after) 232 ,(concat before sep "%2c" after)
diff --git a/lisp/+org.el b/lisp/+org.el index 5062a08..06e70e4 100644 --- a/lisp/+org.el +++ b/lisp/+org.el
@@ -269,7 +269,7 @@ instead of the true count."
269 (region-end)))) 269 (region-end))))
270 (org-link (when clipboard-url 270 (org-link (when clipboard-url
271 (org-link-make-string 271 (org-link-make-string
272 clipboard-url 272 (string-trim clipboard-url)
273 (or region-content 273 (or region-content
274 (read-string "title: " 274 (read-string "title: "
275 (with-current-buffer 275 (with-current-buffer
diff --git a/lisp/+scratch.el b/lisp/+scratch.el index 2a89a95..b724a94 100644 --- a/lisp/+scratch.el +++ b/lisp/+scratch.el
@@ -5,7 +5,7 @@
5;;(require 'scratch) 5;;(require 'scratch)
6 6
7(defun +scratch-immortal () 7(defun +scratch-immortal ()
8 "Bury, don't kill \"*scratc*\" buffer. 8 "Bury, don't kill \"*scratch*\" buffer.
9For `kill-buffer-query-functions'." 9For `kill-buffer-query-functions'."
10 (if (eq (current-buffer) (get-buffer "*scratch*")) 10 (if (eq (current-buffer) (get-buffer "*scratch*"))
11 (progn (bury-buffer) 11 (progn (bury-buffer)
@@ -24,6 +24,5 @@ For `kill-buffer-query-functions'."
24 (next-line 2)) 24 (next-line 2))
25 (rename-buffer (concat "*scratch<" mode ">*") t))) 25 (rename-buffer (concat "*scratch<" mode ">*") t)))
26 26
27
28(provide '+scratch) 27(provide '+scratch)
29;;; +scratch.el ends here 28;;; +scratch.el ends here