Commit 14cf0430 authored by Dan Nicolaescu's avatar Dan Nicolaescu
Browse files

(diff-ignore-whitespace-hunk): Bind

inhibit-read-only before trying to change the buffer.
parent 4894c2b0
2008-03-08 Dan Nicolaescu <dann@ics.uci.edu>
* diff-mode.el (diff-ignore-whitespace-hunk): Bind
inhibit-read-only before trying to change the buffer.
2008-03-08 Glenn Morris <rgm@gnu.org> 2008-03-08 Glenn Morris <rgm@gnu.org>
   
* calendar/appt.el (appt): Move custom group here from calendar.el. * calendar/appt.el (appt): Move custom group here from calendar.el.
......
...@@ -1695,13 +1695,13 @@ For use in `add-log-current-defun-function'." ...@@ -1695,13 +1695,13 @@ For use in `add-log-current-defun-function'."
(line-nb (and (or (looking-at "[^0-9]+\\([0-9]+\\)") (line-nb (and (or (looking-at "[^0-9]+\\([0-9]+\\)")
(error "Can't find line number")) (error "Can't find line number"))
(string-to-number (match-string 1)))) (string-to-number (match-string 1))))
(inhibit-read-only t)
(hunk (delete-and-extract-region (hunk (delete-and-extract-region
(point) (save-excursion (diff-end-of-hunk) (point)))) (point) (save-excursion (diff-end-of-hunk) (point))))
(lead (make-string (1- line-nb) ?\n)) ;Line nums start at 1. (lead (make-string (1- line-nb) ?\n)) ;Line nums start at 1.
(file1 (make-temp-file "diff1")) (file1 (make-temp-file "diff1"))
(file2 (make-temp-file "diff2")) (file2 (make-temp-file "diff2"))
(coding-system-for-read buffer-file-coding-system) (coding-system-for-read buffer-file-coding-system)
(inhibit-read-only t)
old new) old new)
(unwind-protect (unwind-protect
(save-excursion (save-excursion
......
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