550 |
case-fold-search truncate-lines show-paren-mode |
case-fold-search truncate-lines show-paren-mode |
551 |
transient-mark-mode global-font-lock-mode |
transient-mark-mode global-font-lock-mode |
552 |
current-language-environment default-input-method |
current-language-environment default-input-method |
553 |
default-frame-alist display-time-mode)) |
default-frame-alist display-time-mode |
554 |
|
line-number-mode column-number-mode)) |
555 |
(when (customize-mark-to-save elt) |
(when (customize-mark-to-save elt) |
556 |
(setq need-save t))) |
(setq need-save t))) |
557 |
;; We only want to save text-mode-hook after adding or removing auto fill. |
;; We only want to save text-mode-hook after adding or removing auto fill. |
564 |
(and (featurep 'saveplace) |
(and (featurep 'saveplace) |
565 |
(customize-mark-to-save 'save-place) |
(customize-mark-to-save 'save-place) |
566 |
(setq need-save t)) |
(setq need-save t)) |
567 |
(and(featurep 'uniquify) |
(and (featurep 'uniquify) |
568 |
(customize-mark-to-save 'uniquify-buffer-name-style) |
(customize-mark-to-save 'uniquify-buffer-name-style) |
569 |
(setq need-save t)) |
(setq need-save t)) |
570 |
;; Save if we changed anything. |
;; Save if we changed anything. |
571 |
(when need-save |
(when need-save |
572 |
(custom-save-all)))) |
(custom-save-all)))) |
582 |
|
|
583 |
(defvar menu-bar-showhide-menu (make-sparse-keymap "Show/Hide")) |
(defvar menu-bar-showhide-menu (make-sparse-keymap "Show/Hide")) |
584 |
|
|
585 |
|
(define-key menu-bar-showhide-menu [column-number-mode] |
586 |
|
(menu-bar-make-toggle column-number-mode column-number-mode |
587 |
|
"Show Column Number" "Column number mode %s" |
588 |
|
"Show the current column number in the mode-line")) |
589 |
|
|
590 |
|
(define-key menu-bar-showhide-menu [line-number-mode] |
591 |
|
(menu-bar-make-toggle line-number-mode line-number-mode |
592 |
|
"Show Line Number" "Line number mode %s" |
593 |
|
"Show the current line number in the mode-line")) |
594 |
|
|
595 |
|
(define-key menu-bar-showhide-menu [linecolumn-separator] |
596 |
|
'("--")) |
597 |
|
|
598 |
(defun showhide-date-time () |
(defun showhide-date-time () |
599 |
"Toggle whether to show date and time in the mode-line." |
"Toggle whether to show date and time in the mode-line." |
600 |
(interactive) |
(interactive) |