Mercurial > hg > xemacs-beta

comparison lisp/dialog.el @ 464:5aa1854ad537 r21-2-47

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-47
author cvs
date Mon, 13 Aug 2007 11:45:51 +0200
parents 576fb035e263
children 7039e6323819
comparison
equal deleted inserted replaced
463:a158004111cd 464:5aa1854ad537
640 (unless unmapped (make-frame-visible frame)) 640 (unless unmapped (make-frame-visible frame))
641 (let ((newbuf (generate-new-buffer " *dialog box*"))) 641 (let ((newbuf (generate-new-buffer " *dialog box*")))
642 (set-buffer-dedicated-frame newbuf frame) 642 (set-buffer-dedicated-frame newbuf frame)
643 (set-frame-property frame 'dialog-box-buffer newbuf) 643 (set-frame-property frame 'dialog-box-buffer newbuf)
644 (with-current-buffer newbuf 644 (with-current-buffer newbuf
645 (setq frame-title-format cl-title) 645 ;; Should be frame specific, so
646 ;; we don't do this for now.
647 ;; (setq frame-title-format cl-title)
646 (make-local-hook 'delete-frame-hook) 648 (make-local-hook 'delete-frame-hook)
647 (add-hook 'delete-frame-hook 649 (add-hook 'delete-frame-hook
648 #'(lambda (frame) 650 #'(lambda (frame)
649 (kill-buffer 651 (kill-buffer
650 (frame-property 652 (frame-property