Commit 109aa8a9 authored by Leo Liu's avatar Leo Liu
Browse files

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

field.

Fixes: debbugs:10939
parent c5a68906
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>
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment