andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/simple.el (backward-delete-char-untabify): Constrain point to

Browse source 
field.

Fixes: debbugs:10939
This commit is contained in:
Leo Liu 2012-03-05 23:53:34 +08:00
parent c5a6890610
commit 109aa8a95e
2 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,5 +1,8 @@
2012-03-05 Leo Liu <sdl.web@gmail.com>
* simple.el (backward-delete-char-untabify): Constrain point to
field (Bug#10939).
* eshell/em-cmpl.el (eshell-cmpl-initialize): Fix shift-tab key.
2012-03-05 Chong Yidong <cyd@gnu.org>

6
lisp/simple.el
View file

@ -3463,8 +3463,10 @@ and KILLP is t if a prefix arg was specified."
((eq backward-delete-char-untabify-method 'all)
" \t\n\r")))
(n (if skip
(let ((wh (- (point) (save-excursion (skip-chars-backward skip)
(point)))))
(let* ((oldpt (point))
(wh (- oldpt (save-excursion
(skip-chars-backward skip)
(constrain-to-field nil oldpt)))))
(+ arg (if (zerop wh) 0 (1- wh))))
arg)))
;; Avoid warning about delete-backward-char