comparison lisp/international/mule.el @ 67517:527e6fc032c7

(load-with-code-conversion): Bind deactivate-mark.
author Richard M. Stallman <rms@gnu.org>
date Mon, 12 Dec 2005 05:11:57 +0000
parents 27a95070b049
children ac1d7b21ddfc 14a4eb789b45 7beb78bc1f8e
comparison
equal deleted inserted replaced
67516:6355aeca71ad 67517:527e6fc032c7
71 (let ((load-file-name fullname) 71 (let ((load-file-name fullname)
72 (set-auto-coding-for-load t) 72 (set-auto-coding-for-load t)
73 (inhibit-file-name-operation nil)) 73 (inhibit-file-name-operation nil))
74 (save-excursion 74 (save-excursion
75 (set-buffer buffer) 75 (set-buffer buffer)
76 (insert-file-contents fullname) 76 ;; Don't let deactivate-mark remain set.
77 (let (deactivate-mark)
78 (insert-file-contents fullname))
77 ;; If the loaded file was inserted with no-conversion or 79 ;; If the loaded file was inserted with no-conversion or
78 ;; raw-text coding system, make the buffer unibyte. 80 ;; raw-text coding system, make the buffer unibyte.
79 ;; Otherwise, eval-buffer might try to interpret random 81 ;; Otherwise, eval-buffer might try to interpret random
80 ;; binary junk as multibyte characters. 82 ;; binary junk as multibyte characters.
81 (if (and enable-multibyte-characters 83 (if (and enable-multibyte-characters