diff options
| author | Gerd Moellmann | 2000-12-04 13:32:26 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2000-12-04 13:32:26 +0000 |
| commit | 021cfbea756f926ded84b4d893ff1df7ecd71f99 (patch) | |
| tree | 26b372acff7706d1bb1aec2417da59eeef103fe8 /lisp/format.el | |
| parent | 392e96d4e52bd5f48dafd4f4c4f68fe374134e95 (diff) | |
| download | emacs-021cfbea756f926ded84b4d893ff1df7ecd71f99.tar.gz emacs-021cfbea756f926ded84b4d893ff1df7ecd71f99.zip | |
(format-decode): Don't change buffer's undo list.
Diffstat (limited to 'lisp/format.el')
| -rw-r--r-- | lisp/format.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/format.el b/lisp/format.el index dba7ecbff2a..c1919c24e13 100644 --- a/lisp/format.el +++ b/lisp/format.el | |||
| @@ -248,7 +248,6 @@ For most purposes, consider using `format-decode-region' instead." | |||
| 248 | (unwind-protect | 248 | (unwind-protect |
| 249 | (progn | 249 | (progn |
| 250 | ;; Don't record undo information for the decoding. | 250 | ;; Don't record undo information for the decoding. |
| 251 | (setq buffer-undo-list t) | ||
| 252 | 251 | ||
| 253 | (if (null format) | 252 | (if (null format) |
| 254 | ;; Figure out which format it is in, remember list in `format'. | 253 | ;; Figure out which format it is in, remember list in `format'. |
| @@ -286,8 +285,8 @@ For most purposes, consider using `format-decode-region' instead." | |||
| 286 | (if visit-flag | 285 | (if visit-flag |
| 287 | (setq buffer-file-format format))) | 286 | (setq buffer-file-format format))) |
| 288 | 287 | ||
| 289 | (set-buffer-modified-p mod) | 288 | (set-buffer-modified-p mod)) |
| 290 | (setq buffer-undo-list nil)) | 289 | |
| 291 | ;; Return new length of region | 290 | ;; Return new length of region |
| 292 | (- end begin))) | 291 | (- end begin))) |
| 293 | 292 | ||