Commit 9f5c7ace authored by Richard M. Stallman's avatar Richard M. Stallman

(line): Add a beginning-op function.

parent e57d8da0
......@@ -106,6 +106,14 @@ bounds-of-thing-at-point."
;;=== Special cases =======================================================
;;--- Lines ---
;; bolp will be false when you click on the last line in the buffer
;; and it has no final newline.
(put 'line 'beginning-op
(function (lambda () (if (bolp) (forward-line -1) (beginning-of-line)))))
;;--- Sexps ---
(defun in-string-p ()
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment