(setq default-frame-alist
(cons (cons 'menu-bar-lines (if menu-bar-mode 1 0))
default-frame-alist)))))
-
+
;; Make tool-bar-mode and default-frame-alist consistent. Don't do
;; it in batch mode since that would leave a tool-bar-lines
;; parameter in default-frame-alist in a dumped Emacs, which is not
(relief (if (and (integerp tool-bar-button-relief)
(> tool-bar-button-relief 0))
tool-bar-button-relief 3))
- (lines (/ (+ image-height
+ (lines (/ (+ image-height
(* 2 margin)
(* 2 relief)
(1- char-height))
char-height))
(height (frame-parameter frame-initial-frame 'height))
(newparms (list (cons 'height (- height lines))))
- (initial-top (cdr (assq 'top
+ (initial-top (cdr (assq 'top
frame-initial-geometry-arguments)))
(top (frame-parameter frame-initial-frame 'top)))
(when (and (consp initial-top) (eq '- (car initial-top)))
- (setq newparms
- (append newparms
+ (setq newparms
+ (append newparms
`((top . ,(+ top (* lines char-height))))
nil)))
(modify-frame-parameters frame-initial-frame newparms)
(sleep-for 1))
(setq parms (frame-parameters frame-initial-frame))
- ;; Get rid of `name' unless it was specified explicitly before.
+ ;; Get rid of `name' unless it was specified explicitly before.
(or (assq 'name frame-initial-frame-alist)
(setq parms (delq (assq 'name parms) parms)))
(setq tail allparms)
;; Find just the parms that have changed since we first
;; made this frame. Those are the ones actually set by
- ;; the init file. For those parms whose values we already knew
+ ;; the init file. For those parms whose values we already knew
;; (such as those spec'd by command line options)
;; it is undesirable to specify the parm again
- ;; once the user has seen the frame and been able to alter it
+ ;; once the user has seen the frame and been able to alter it
;; manually.
(while tail
(let (newval oldval)
(defcustom focus-follows-mouse t
- "*Non-nil if window system changes focus when you move the mouse."
+ "*Non-nil if window system changes focus when you move the mouse.
+You should set this variable to tell Emacs how your window manager
+handles focus, since there is no way in general for Emacs to find out
+automatically."
:type 'boolean
:group 'frames
:version "20.3")
"Select the ARG'th different visible frame on current display, and raise it.
All frames are arranged in a cyclic order.
This command selects the frame ARG steps away in that order.
-A negative ARG moves in the opposite order."
+A negative ARG moves in the opposite order.
+
+To make this command work properly, you must tell Emacs
+how the system (or the window manager) generally handles
+focus-switching between windows. If moving the mouse onto a window
+selects it (gives it focus), set `focus-follows-mouse' to t.
+Otherwise, that variable should be nil."
(interactive "p")
(let ((frame (selected-frame)))
(while (> arg 0)
"Set the font of the selected frame to FONT-NAME.
When called interactively, prompt for the name of the font to use.
To get the frame's current default font, use `frame-parameters'."
- (interactive
+ (interactive
(list
(let ((completion-ignore-case t))
(completing-read "Font name: "
To get the frame's current background color, use `frame-parameters'."
(interactive (list (facemenu-read-color)))
(modify-frame-parameters (selected-frame)
- (list (cons 'background-color color-name))))
+ (list (cons 'background-color color-name)))
+ (or window-system
+ (face-set-after-frame-default (selected-frame))))
(defun set-foreground-color (color-name)
"Set the foreground color of the selected frame to COLOR-NAME.
To get the frame's current foreground color, use `frame-parameters'."
(interactive (list (facemenu-read-color)))
(modify-frame-parameters (selected-frame)
- (list (cons 'foreground-color color-name))))
+ (list (cons 'foreground-color color-name)))
+ (or window-system
+ (face-set-after-frame-default (selected-frame))))
(defun set-cursor-color (color-name)
"Set the text cursor color of the selected frame to COLOR-NAME.
frame's display)."
(and (display-graphic-p display)
(fboundp 'image-mask-p)
- (fboundp 'image-size)
- ;; FIXME: this will need to be revisited when the Windows port
- ;; supports images.
- (not (eq (framep-on-display display) 'w32))))
+ (fboundp 'image-size)))
(defalias 'display-multi-frame-p 'display-graphic-p)
(defalias 'display-multi-font-p 'display-graphic-p)
((eq frame-type 'pc)
16)
(t
- (length (tty-color-alist))))))
+ (tty-display-color-cells)))))
(defun display-visual-class (&optional display)
"Returns the visual class of DISPLAY.
Setting this variable makes it local to the current buffer."
:tag "Highlight trailing whitespace."
- :set #'(lambda (symbol value) (set-default symbol value))
:type 'boolean
:group 'font-lock)
:version "21.1"
:group 'frames)
-(defcustom automatic-hscrolling t
+(defcustom auto-hscroll-mode t
"*Allow or disallow automatic scrolling windows horizontally.
If non-nil, windows are automatically scrolled horizontally to make
point visible."
:version "21.1"
:type 'boolean
:group 'scrolling)
+(defvaralias 'automatic-hscrolling 'auto-hscroll-mode)
\f
;; Blinking cursor
(defun blink-cursor-end ()
"Stop cursor blinking.
This is installed as a pre-command hook by `blink-cursor-start'.
-When run, it cancels the timer `blink-cursor-timer' and removes
+When run, it cancels the timer `blink-cursor-timer' and removes
itself as a pre-command hook."
(remove-hook 'pre-command-hook 'blink-cursor-end)
(internal-show-cursor nil t)
(defcustom cursor-in-non-selected-windows t
"*Non-nil means show a hollow box cursor in non-selected-windows.
If nil, don't show a cursor except in the selected window.
-Use Custom to set this variable to get the display updated."
+Use Custom to set this variable to get the display updated."
:tag "Cursor in non-selected windows"
:type 'boolean
:group 'cursor
:set #'(lambda (symbol value)
(set-default symbol value)
(force-mode-line-update t)))
-
+
\f
;;;; Key bindings