diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2006-11-24 18:43:58 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2006-11-24 18:43:58 +0000 |
| commit | 053f45dd627fbbf0735029272cb77e2e1f44ed0b (patch) | |
| tree | 5f6eb6608a927e634bd80dac0ca31363d6977852 /lisp/international/mule.el | |
| parent | 7edbb0da2b9f420ebcc5cd53ff4603cb601c6608 (diff) | |
| download | emacs-053f45dd627fbbf0735029272cb77e2e1f44ed0b.tar.gz | |
(load-with-code-conversion, with-category-table): Use with-current-buffer.
(after-insert-file-set-coding): Use restore-buffer-modified-p.
Diffstat (limited to 'lisp/international/mule.el')
| -rw-r--r-- | lisp/international/mule.el | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lisp/international/mule.el b/lisp/international/mule.el index fe01f0b7e9c..468b8678da4 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -71,8 +71,7 @@ Return t if file exists." (let ((load-file-name fullname) (set-auto-coding-for-load t) (inhibit-file-name-operation nil)) - (save-excursion - (set-buffer buffer) + (with-current-buffer buffer ;; Don't let deactivate-mark remain set. (let (deactivate-mark) (insert-file-contents fullname)) @@ -1871,7 +1870,7 @@ The optional second arg VISIT non-nil means that we are visiting a file." (set-buffer-multibyte nil)) (set-buffer-multibyte nil)) (setq inserted (- pos-marker (point))))) - (set-buffer-modified-p modified-p)))) + (restore-buffer-modified-p modified-p)))) inserted) ;; The coding-spec and eol-type of coding-system returned is decided @@ -2223,8 +2222,7 @@ Value is what BODY returns." (progn (set-category-table ,table) ,@body) - (save-current-buffer - (set-buffer ,old-buffer) + (with-current-buffer ,old-buffer (set-category-table ,old-table)))))) (defun define-translation-hash-table (symbol table) |