Mercurial > emacs
comparison lisp/startup.el @ 24115:10955ef4bdfb
(command-line): If the init file changes operation to
unibyte, make all buffers unibyte and re-set language environment.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 19 Jan 1999 03:00:09 +0000 |
parents | 00fa89a27438 |
children | 8ca6326a79e1 |
comparison
equal
deleted
inserted
replaced
24114:df6194854007 | 24115:10955ef4bdfb |
---|---|
1 ;;; startup.el --- process Emacs shell arguments | 1 ;;; startup.el --- process Emacs shell arguments |
2 | 2 |
3 ;; Copyright (C) 1985, 86, 92, 94, 95, 96, 97, 1998 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1985, 86, 92, 94, 95, 96, 97, 1998, 1999 Free Software Foundation, Inc. |
4 | 4 |
5 ;; Maintainer: FSF | 5 ;; Maintainer: FSF |
6 ;; Keywords: internal | 6 ;; Keywords: internal |
7 | 7 |
8 ;; This file is part of GNU Emacs. | 8 ;; This file is part of GNU Emacs. |
673 | 673 |
674 ;; Load that user's init file, or the default one, or none. | 674 ;; Load that user's init file, or the default one, or none. |
675 (let (debug-on-error-from-init-file | 675 (let (debug-on-error-from-init-file |
676 debug-on-error-should-be-set | 676 debug-on-error-should-be-set |
677 (debug-on-error-initial | 677 (debug-on-error-initial |
678 (if (eq init-file-debug t) 'startup init-file-debug))) | 678 (if (eq init-file-debug t) 'startup init-file-debug)) |
679 (orig-enable-multibyte default-enable-multibyte-characters)) | |
679 (let ((debug-on-error debug-on-error-initial) | 680 (let ((debug-on-error debug-on-error-initial) |
680 ;; This function actually reads the init files. | 681 ;; This function actually reads the init files. |
681 (inner | 682 (inner |
682 (function | 683 (function |
683 (lambda () | 684 (lambda () |
719 ;; arrange to preserve the value that it set up. | 720 ;; arrange to preserve the value that it set up. |
720 (or (eq debug-on-error debug-on-error-initial) | 721 (or (eq debug-on-error debug-on-error-initial) |
721 (setq debug-on-error-should-be-set t | 722 (setq debug-on-error-should-be-set t |
722 debug-on-error-from-init-file debug-on-error))) | 723 debug-on-error-from-init-file debug-on-error))) |
723 (if debug-on-error-should-be-set | 724 (if debug-on-error-should-be-set |
724 (setq debug-on-error debug-on-error-from-init-file))) | 725 (setq debug-on-error debug-on-error-from-init-file)) |
726 (unless (or default-enable-multibyte-characters | |
727 (eq orig-enable-multibyte default-enable-multibyte-characters)) | |
728 ;; Init file changed to unibyte. Reset existing multibyte | |
729 ;; buffers (probably *scratch*, *Messages*, *Minibuff-0*). | |
730 ;; Arguably this should only be done if they're free of | |
731 ;; multibyte characters. | |
732 (mapcar (lambda (buffer) | |
733 (with-current-buffer buffer | |
734 (if enable-multibyte-characters | |
735 (set-buffer-multibyte nil)))) | |
736 (buffer-list)) | |
737 ;; Also re-set the language environment in case it was | |
738 ;; originally done before unibyte was set and is sensitive to | |
739 ;; unibyte (display table, terminal coding system &c). | |
740 (set-language-environment current-language-environment))) | |
725 | 741 |
726 ;; Do this here in case the init file sets mail-host-address. | 742 ;; Do this here in case the init file sets mail-host-address. |
727 (or user-mail-address | 743 (or user-mail-address |
728 (setq user-mail-address (concat (user-login-name) "@" | 744 (setq user-mail-address (concat (user-login-name) "@" |
729 (or mail-host-address | 745 (or mail-host-address |