mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

(line): Add a beginning-op function.

Browse Source
This commit is contained in:
Richard M. Stallman 1994-11-15 04:18:03 +00:00
parent e57d8da0a4
commit 9f5c7ace45
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/thingatpt.el
View File

@ -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 ()