Mercurial > hg > xemacs-beta

comparison lisp/code-files.el @ 1699:68169b2a743e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-09-19 16:39:43 by youngs] * code-files.el (insert-file-contents): Make sure that setbuffer-file-coding-system sets the eol style.
author youngs
date Fri, 19 Sep 2003 16:39:43 +0000
parents 184461bc8de4
children 5903b079bee1
comparison
equal deleted inserted replaced
1698:4b7295e5a412 1699:68169b2a743e
452 ;; if buffer-file-coding-system is already local, just 452 ;; if buffer-file-coding-system is already local, just
453 ;; set its eol type to what was found, if it wasn't 453 ;; set its eol type to what was found, if it wasn't
454 ;; set already. 454 ;; set already.
455 (set-buffer-file-coding-system 455 (set-buffer-file-coding-system
456 (subsidiary-coding-system buffer-file-coding-system 456 (subsidiary-coding-system buffer-file-coding-system
457 (coding-system-eol-type coding-system))) 457 (coding-system-eol-type coding-system)) t)
458 ;; otherwise actually set buffer-file-coding-system. 458 ;; otherwise actually set buffer-file-coding-system.
459 (set-buffer-file-coding-system coding-system))) 459 (set-buffer-file-coding-system coding-system t)))
460 ;; ... and `buffer-file-coding-system-when-loaded'. the machinations 460 ;; ... and `buffer-file-coding-system-when-loaded'. the machinations
461 ;; of set-buffer-file-coding-system cause the actual coding system 461 ;; of set-buffer-file-coding-system cause the actual coding system
462 ;; object to be stored, so do that here, too. 462 ;; object to be stored, so do that here, too.
463 (setq buffer-file-coding-system-when-loaded 463 (setq buffer-file-coding-system-when-loaded
464 (get-coding-system coding-system)) 464 (get-coding-system coding-system))