mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-06 05:52:32 -08:00
Code Issues Projects Releases Wiki Activity

(load-with-code-conversion, with-category-table): Use with-current-buffer.

Browse source 
(after-insert-file-set-coding): Use restore-buffer-modified-p.
This commit is contained in:
Stefan Monnier 2006-11-24 18:43:58 +00:00
parent 7edbb0da2b
commit 053f45dd62
2 changed files with 14 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/ChangeLog
View file

@ -1,10 +1,16 @@
2006-11-24 Stefan Monnier <monnier@iro.umontreal.ca>
* international/mule.el (load-with-code-conversion)
(with-category-table): Use with-current-buffer.
(after-insert-file-set-coding): Use restore-buffer-modified-p.
2006-11-24 Eli Zaretskii <eliz@gnu.org>
* mail/smtpmail.el (smtpmail-send-it): Copy
buffer-file-coding-system from the mail buffer. Possibly add a
MIME header for the message encoding. Bind
coding-system-for-write around the call to mail-do-fcc. Use
smtpmail-code-conv-from to encode queued mail messages.
* mail/smtpmail.el (smtpmail-send-it):
Copy buffer-file-coding-system from the mail buffer. Possibly add a
MIME header for the message encoding.
Bind coding-system-for-write around the call to mail-do-fcc.
Use smtpmail-code-conv-from to encode queued mail messages.
2006-11-24 Juanma Barranquero <lekktu@gmail.com>

8
lisp/international/mule.el
View file

@ -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)