Mercurial > emacs
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 |