592 |
"Functions to run after a frame's font has been changed.") |
"Functions to run after a frame's font has been changed.") |
593 |
|
|
594 |
;; Alias, kept temporarily. |
;; Alias, kept temporarily. |
595 |
(defalias 'new-frame 'make-frame) |
(define-obsolete-function-alias 'new-frame 'make-frame "22.1") |
|
(make-obsolete 'new-frame 'make-frame "22.1") |
|
596 |
|
|
597 |
(defun make-frame (&optional parameters) |
(defun make-frame (&optional parameters) |
598 |
"Return a newly created frame displaying the current buffer. |
"Return a newly created frame displaying the current buffer. |
850 |
To get the frame's current default font, use `frame-parameters'. |
To get the frame's current default font, use `frame-parameters'. |
851 |
|
|
852 |
The default behavior is to keep the numbers of lines and columns in |
The default behavior is to keep the numbers of lines and columns in |
853 |
the frame, thus may change its pixel size. If optional KEEP-SIZE is |
the frame, thus may change its pixel size. If optional KEEP-SIZE is |
854 |
non-nil (interactively, prefix argument) the current frame size (in |
non-nil (interactively, prefix argument) the current frame size (in |
855 |
pixels) is kept by adjusting the numbers of the lines and columns." |
pixels) is kept by adjusting the numbers of the lines and columns." |
856 |
(interactive |
(interactive |
1148 |
|
|
1149 |
|
|
1150 |
;;;; Aliases for backward compatibility with Emacs 18. |
;;;; Aliases for backward compatibility with Emacs 18. |
1151 |
(defalias 'screen-height 'frame-height) |
(define-obsolete-function-alias 'screen-height 'frame-height) ;before 19.15 |
1152 |
(defalias 'screen-width 'frame-width) |
(define-obsolete-function-alias 'screen-width 'frame-width) ;before 19.15 |
1153 |
|
|
1154 |
(defun set-screen-width (cols &optional pretend) |
(defun set-screen-width (cols &optional pretend) |
1155 |
"Obsolete function to change the size of the screen to COLS columns. |
"Change the size of the screen to COLS columns. |
1156 |
Optional second arg non-nil means that redisplay should use COLS columns |
Optional second arg non-nil means that redisplay should use COLS columns |
1157 |
but that the idea of the actual width of the frame should not be changed. |
but that the idea of the actual width of the frame should not be changed. |
1158 |
This function is provided only for compatibility with Emacs 18; new code |
This function is provided only for compatibility with Emacs 18." |
|
should use `set-frame-width instead'." |
|
1159 |
(set-frame-width (selected-frame) cols pretend)) |
(set-frame-width (selected-frame) cols pretend)) |
1160 |
|
|
1161 |
(defun set-screen-height (lines &optional pretend) |
(defun set-screen-height (lines &optional pretend) |
1162 |
"Obsolete function to change the height of the screen to LINES lines. |
"Change the height of the screen to LINES lines. |
1163 |
Optional second arg non-nil means that redisplay should use LINES lines |
Optional second arg non-nil means that redisplay should use LINES lines |
1164 |
but that the idea of the actual height of the screen should not be changed. |
but that the idea of the actual height of the screen should not be changed. |
1165 |
This function is provided only for compatibility with Emacs 18; new code |
This function is provided only for compatibility with Emacs 18." |
|
should use `set-frame-height' instead." |
|
1166 |
(set-frame-height (selected-frame) lines pretend)) |
(set-frame-height (selected-frame) lines pretend)) |
1167 |
|
|
1168 |
(defun delete-other-frames (&optional frame) |
(defun delete-other-frames (&optional frame) |
1185 |
(when (eq (frame-parameter frame 'minibuffer) 'only) |
(when (eq (frame-parameter frame 'minibuffer) 'only) |
1186 |
(delete-frame frame))))) |
(delete-frame frame))))) |
1187 |
|
|
|
(make-obsolete 'screen-height 'frame-height) ;before 19.15 |
|
|
(make-obsolete 'screen-width 'frame-width) ;before 19.15 |
|
1188 |
(make-obsolete 'set-screen-width 'set-frame-width) ;before 19.15 |
(make-obsolete 'set-screen-width 'set-frame-width) ;before 19.15 |
1189 |
(make-obsolete 'set-screen-height 'set-frame-height) ;before 19.15 |
(make-obsolete 'set-screen-height 'set-frame-height) ;before 19.15 |
1190 |
|
|
1191 |
;; miscellaneous obsolescence declarations |
;; miscellaneous obsolescence declarations |
1192 |
(defvaralias 'delete-frame-hook 'delete-frame-functions) |
(define-obsolete-variable-alias 'delete-frame-hook |
1193 |
(make-obsolete-variable 'delete-frame-hook 'delete-frame-functions "22.1") |
'delete-frame-functions "22.1") |
1194 |
|
|
1195 |
|
|
1196 |
;; Highlighting trailing whitespace. |
;; Highlighting trailing whitespace. |
1281 |
'blink-cursor-start))) |
'blink-cursor-start))) |
1282 |
(internal-show-cursor nil t))) |
(internal-show-cursor nil t))) |
1283 |
|
|
1284 |
(defvaralias 'blink-cursor 'blink-cursor-mode) |
(define-obsolete-variable-alias 'blink-cursor 'blink-cursor-mode "22.1") |
|
(make-obsolete-variable 'blink-cursor 'blink-cursor-mode "22.1") |
|
1285 |
|
|
1286 |
(defun blink-cursor-start () |
(defun blink-cursor-start () |
1287 |
"Timer function called from the timer `blink-cursor-idle-timer'. |
"Timer function called from the timer `blink-cursor-idle-timer'. |
1327 |
|
|
1328 |
|
|
1329 |
(defcustom cursor-in-non-selected-windows t |
(defcustom cursor-in-non-selected-windows t |
1330 |
"*Non-nil means show a hollow box cursor in non-selected-windows. |
"*Non-nil means show a hollow box cursor in non-selected windows. |
1331 |
If nil, don't show a cursor except in the selected window. |
If nil, don't show a cursor except in the selected window. |
1332 |
Use Custom to set this variable to get the display updated." |
Use Custom to set this variable to get the display updated." |
1333 |
:tag "Cursor in non-selected windows" |
:tag "Cursor in non-selected windows" |