# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 784873083 0
# Node ID 23e429e3fb18b97f7355f742d5d125f285389cee
# Parent  3b0788d087b63098a4b4e5ef2edb731cac083d19
(line): Add a beginning-op function.

diff -r 3b0788d087b6 -r 23e429e3fb18 lisp/thingatpt.el
--- a/lisp/thingatpt.el	Tue Nov 15 03:38:23 1994 +0000
+++ b/lisp/thingatpt.el	Tue Nov 15 04:18:03 1994 +0000
@@ -106,6 +106,14 @@
 
 ;;=== 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 ()