diff options
| -rw-r--r-- | common.el | 36 |
1 files changed, 25 insertions, 11 deletions
@@ -192,23 +192,37 @@ ARG means do this command ARG times." ;; This can be optimized by not duplicating an element on the stack. -;;;###autoload -(defalias 'durand-display-in-one-window - (make-byte-code - #x202 - (unibyte-string 192 193 194 32 33 33 195 1 4 34 136 196 1 33 136 197 32 136 135) - (vector 'split-window 'frame-root-window 'selected-frame - 'set-window-buffer 'select-window 'delete-other-windows) - 9 - "Display BUFFER in one window. +(defun durand-display-in-one-window (buffer _alist) + "Display BUFFER in one window. ALIST is an association list of action symbols and values. See Info node `(elisp) Buffer Display Action Alists' for details of -such alists. +such alists. This function pops up a new window and then deletes all other windows. And ALIST is completely ignored. -\(fn BUFFER ALIST)")) +\(fn BUFFER ALIST)" + (let ((window (split-window (frame-root-window (selected-frame))))) + (set-window-buffer window buffer) + (select-window window) + (delete-other-windows window))) + +;; (defalias 'durand-display-in-one-window +;; (make-byte-code +;; #x202 +;; (unibyte-string 192 193 194 32 33 33 195 1 4 34 136 196 1 33 136 197 32 136 135) +;; (vector 'split-window 'frame-root-window 'selected-frame +;; 'set-window-buffer 'select-window 'delete-other-windows) +;; 9 +;; "Display BUFFER in one window. +;; ALIST is an association list of action symbols and values. See +;; Info node `(elisp) Buffer Display Action Alists' for details of +;; such alists. + +;; This function pops up a new window and then deletes all other +;; windows. And ALIST is completely ignored. + +;; \(fn BUFFER ALIST)")) ;;;###autoload (defvar durand-window-max-height 0.3 |