mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-20 18:17:20 +00:00
Code Issues Releases Activity

(set-fill-prefix): Cancel fill prefix if point

Browse Source 
is in front of the left-margin, if any.
This commit is contained in:
Gerd Moellmann 2001-01-31 16:12:41 +00:00
parent 30f824ceab
commit 2441692dc8
2 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2001-01-31 Gerd Moellmann <gerd@gnu.org>
* textmodes/fill.el (set-fill-prefix): Cancel fill prefix if point
is in front of the left-margin, if any.
* simple.el (delete-key-deletes-forward-mode): Treat `kp-delete'
like `delete'.

12
lisp/textmodes/fill.el
View File

@ -74,11 +74,13 @@ See the documentation of `kinsoku' for more information.")
Filling expects lines to start with the fill prefix and
reinserts the fill prefix in each resulting line."
(interactive)
(setq fill-prefix (buffer-substring
(save-excursion (move-to-left-margin) (point))
(point)))
(if (equal fill-prefix "")
(setq fill-prefix nil))
(let ((left-margin-pos (save-excursion (move-to-left-margin) (point))))
(if (> (point) left-margin-pos)
(progn
(setq fill-prefix (buffer-substring left-margin-pos (point)))
(if (equal fill-prefix "")
(setq fill-prefix nil)))
(setq fill-prefix nil)))
(if fill-prefix
(message "fill-prefix: \"%s\"" fill-prefix)
(message "fill-prefix cancelled")))