Mercurial > hg > xemacs-beta
comparison lisp/frame.el @ 278:90d73dddcdc4 r21-0b37
Import from CVS: tag r21-0b37
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 10:31:29 +0200 |
| parents | c5d627a313b1 |
| children | 7df0dd720c89 |
comparison
equal
deleted
inserted
replaced
| 277:cfdf3ff11843 | 278:90d73dddcdc4 |
|---|---|
| 871 | 871 |
| 872 | 872 |
| 873 | 873 |
| 874 ;;; Application-specific frame-management | 874 ;;; Application-specific frame-management |
| 875 | 875 |
| 876 (defvar get-frame-for-buffer-default-frame-name nil | 876 (defcustom get-frame-for-buffer-default-frame-name nil |
| 877 "The default frame to select; see doc of `get-frame-for-buffer'.") | 877 "*The default frame to select; see doc of `get-frame-for-buffer'." |
| 878 | 878 :type 'string |
| 879 (defvar get-frame-for-buffer-default-instance-limit nil) | 879 :group 'frames) |
| 880 | |
| 881 (defcustom get-frame-for-buffer-default-instance-limit nil | |
| 882 "*The default instance limit for creating new frames; | |
| 883 see doc of `get-frame-for-buffer'." | |
| 884 :type 'integer | |
| 885 :group 'frames) | |
| 880 | 886 |
| 881 (defun get-frame-name-for-buffer (buffer) | 887 (defun get-frame-name-for-buffer (buffer) |
| 882 (let ((mode (and (get-buffer buffer) | 888 (let ((mode (and (get-buffer buffer) |
| 883 (save-excursion (set-buffer buffer) | 889 (save-excursion (set-buffer buffer) |
| 884 major-mode)))) | 890 major-mode)))) |