mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(after-insert-file-set-buffer-file-coding-system):

Browse Source 
Don't make buffer unibyte unless we seem to be visiting a file.
This commit is contained in:
Richard M. Stallman 1998-05-12 23:09:35 +00:00
parent fd3613d785
commit ccb77b4efd
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/international/mule.el
View File

@ -845,10 +845,12 @@ function by default."
(modified-p (buffer-modified-p)))
(when coding-system
(set-buffer-file-coding-system coding-system)
(if (or (eq coding-system 'no-conversion)
(eq (coding-system-type coding-system) 5))
;; It seems that random 8-bit codes are read. We had
;; better edit this buffer without multibyte characters.
(if (and (or (eq coding-system 'no-conversion)
(eq (coding-system-type coding-system) 5))
;; If buffer was unmodified, we must be visiting it.
(not modified-p))
;; For coding systems no-conversion and raw-text...,
;; edit the buffer as unibyte.
(set-buffer-multibyte nil))
(set-buffer-modified-p modified-p))))
nil)