[debbugs-tracker] bug#10939: closed (24.0.94; backward-delete-char-untabify read-only error)

[GNU bug Tracking System]

Your message dated Tue, 06 Mar 2012 03:03:57 +0800
with message-id <address@hidden>
and subject line Re: bug#10939: 24.0.94; backward-delete-char-untabify 
read-only error
has caused the debbugs.gnu.org bug report #10939,
regarding 24.0.94; backward-delete-char-untabify read-only error
to be marked as done.

(If you believe you have received this mail in error, please contact
address@hidden)


-- 
10939: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=10939
GNU Bug Tracking System
Contact address@hidden with problems
> --- Begin Message ---
>
>
>
> Subject: 
>
> 24.0.94; backward-delete-char-untabify read-only error
>
>
>
>
> Date: 
>
> Sun, 04 Mar 2012 21:32:27 +0800
>
>
>
>
> 1. (setq backward-delete-char-untabify-method 'hungry)
> 2. (setq enable-recursive-minibuffers t)
> 3. M-: and then type some spaces
> 4. M-x backward-delete-char-untabify
>
> You should see something like:
>   delete-backward-char: Text is read-only
>
> This patch fixes it:
>
> diff --git a/lisp/simple.el b/lisp/simple.el
> index c14d0d70..0faf54bc 100644
> --- a/lisp/simple.el
> +++ b/lisp/simple.el
> @@ -3458,8 +3458,10 @@ (defun backward-delete-char-untabify (arg &optional 
> killp)
>                       ((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
>
>
>
> --- End Message ---
> --- Begin Message ---
>
>
>
> Subject: 
>
> Re: bug#10939: 24.0.94; backward-delete-char-untabify read-only error
>
>
>
>
> Date: 
>
> Tue, 06 Mar 2012 03:03:57 +0800
>
>
>
>
> User-agent: 
>
> Gnus/5.13 (Gnus v5.13) Emacs/24.0.94 (Mac OS X 10.6.8)
>
>
>
>
> Fixed in 24.1
>
>
> --- End Message ---