equal
deleted
inserted
replaced
739 (defun server-ensure-safe-dir (dir) "Noop" t)) ; Suppress error directory ~/.emacs.d/server is unsafe on windows. |
739 (defun server-ensure-safe-dir (dir) "Noop" t)) ; Suppress error directory ~/.emacs.d/server is unsafe on windows. |
740 (when (or (= emacs-major-version 22) (not (eq (server-running-p server-name) t))) |
740 (when (or (= emacs-major-version 22) (not (eq (server-running-p server-name) t))) |
741 (server-start)) ) |
741 (server-start)) ) |
742 |
742 |
743 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
743 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
744 (message "file local variables/ dir local variables") |
|
745 |
|
746 (setq enable-dir-local-variables t) |
|
747 |
|
748 ;; Prompt before evaluating potencially dangerous foreign elisp! |
|
749 (setq enable-local-variables :safe) |
|
750 (setq enable-local-eval :maybe) |
|
751 |
|
752 ;; See also `safe-local-eval-forms' & `safe-local-variable-values'. |
|
753 |
|
754 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
744 (message "standart/general settings") |
755 (message "standart/general settings") |
745 |
756 |
746 ;; Try to speed things up, especially in VM. |
757 ;; Try to speed things up, especially in VM. |
747 (setq gc-cons-threshold 2000000) |
758 (setq gc-cons-threshold 2000000) |
748 |
759 |
755 (setq visible-bell t) ; With default ring-bell-function in text terminal |
766 (setq visible-bell t) ; With default ring-bell-function in text terminal |
756 ; revert screen if press [end] or [home] |
767 ; revert screen if press [end] or [home] |
757 (setq track-eol nil) |
768 (setq track-eol nil) |
758 |
769 |
759 (setq enable-recursive-minibuffers t) |
770 (setq enable-recursive-minibuffers t) |
760 |
|
761 ;; Prompt before evaluating local bits of lisp. This stops people |
|
762 ;; putting things at the end of files which delete all your files! |
|
763 (setq enable-local-variables :safe |
|
764 enable-local-eval 1) |
|
765 |
771 |
766 (setq kill-whole-line t) |
772 (setq kill-whole-line t) |
767 |
773 |
768 ;; Disable because of bug with gettext.el. See |
774 ;; Disable because of bug with gettext.el. See |
769 ;; http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=287261 |
775 ;; http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=287261 |