Mercurial > hg > xemacs-beta

comparison lisp/frame.el @ 267:966663fcf606 r20-5b32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b32
author cvs
date Mon, 13 Aug 2007 10:26:29 +0200
parents 727739f917cb
children c5d627a313b1
comparison
equal deleted inserted replaced
266:18d185df8c54 267:966663fcf606
214 ;; because that would override explicit user resizing. 214 ;; because that would override explicit user resizing.
215 (setq initial-frame-plist 215 (setq initial-frame-plist
216 (frame-remove-geometry-props initial-frame-plist)))) 216 (frame-remove-geometry-props initial-frame-plist))))
217 ;; At this point, we know that we have a frame open, so we 217 ;; At this point, we know that we have a frame open, so we
218 ;; can delete the terminal device. 218 ;; can delete the terminal device.
219 (delete-device terminal-device) 219 ;; (delete-device terminal-device)
220 ;; Do it the same way Fkill_emacs does it. -slb
221 (delete-console terminal-console)
220 (setq terminal-frame nil) 222 (setq terminal-frame nil)
221 223
222 ;; FSFmacs sets frame-creation-function here, but no need. 224 ;; FSFmacs sets frame-creation-function here, but no need.
223 ))) 225 )))
224 226