/[emacs]/emacs/lisp/frame.el
ViewVC logotype

Diff of /emacs/lisp/frame.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.226 by teirllm, Thu Jul 14 00:59:34 2005 UTC revision 1.227 by lektu, Wed Jul 20 17:54:26 2005 UTC
# Line 592  The functions are run with one arg, the Line 592  The functions are run with one arg, the
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.
# Line 851  When called interactively, prompt for th Line 850  When called interactively, prompt for th
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
# Line 1149  The value is one of the symbols `static- Line 1148  The value is one of the symbols `static-
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)
# Line 1188  left untouched.  FRAME nil or omitted me Line 1185  left untouched.  FRAME nil or omitted me
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.
# Line 1286  cursor display.  On a text-only terminal Line 1281  cursor display.  On a text-only terminal
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'.
# Line 1333  itself as a pre-command hook." Line 1327  itself as a pre-command hook."
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"

Legend:
Removed from v.1.226  
changed lines
  Added in v.1.227

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26