(line): Add a beginning-op function.

9f5c7ace · Richard M. Stallman · e57d8da0 · 9f5c7ace
Commit 9f5c7ace authored Nov 15, 1994 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 8 additions and 0 deletions

lisp/thingatpt.el lisp/thingatpt.el +8 -0

No files found.
--- a/lisp/thingatpt.el
+++ b/lisp/thingatpt.el
@@ -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 ()