home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / epoch / avoid-split.el < prev    next >
Encoding:
Text File  |  1991-03-30  |  1.8 KB  |  60 lines
  1. ; From: tmb@AI.MIT.EDU (Thomas M. Breuel)
  2. ; Date: Mon, 30 Jul 90 20:44:56 EDT
  3. ; Subject: integrating epoch functions with standard emacs window functions
  4. ; 
  5. ; The following code will override some of the default Emacs code and
  6. ; avoid splitting a window if some other X window (screen) already
  7. ; displays the target buffer.
  8. ; 
  9. ;                         Thomas.
  10.  
  11.  
  12. (if (fboundp 'old-switch-to-buffer-other-window)
  13.     (fset 'old-switch-to-buffer-other-window
  14.       (symbol-function 'switch-to-buffer-other-window)))
  15.  
  16. (if (fboundp 'old-get-buffer-window) nil
  17.     (fset 'old-get-buffer-window (symbol-function 'get-buffer-window)))
  18.  
  19. (defun get-buffer-window (buffer)
  20.   (let ((window (epoch::get-buffer-window buffer)))
  21.     (if (null window) nil
  22.     (let* ((screen (epoch::screen-of-window window))
  23.            (info (epoch::screen-information))
  24.            (mapped (nth 5 info)))
  25.       (if mapped window nil)))))
  26.  
  27.  
  28. (if (fboundp 'old-pop-to-buffer) nil
  29.     (fset 'old-pop-to-buffer (symbol-function 'pop-to-buffer)))
  30.  
  31. (defun pop-to-buffer (buffer &optional split)
  32.   (let* ((window (get-buffer-window buffer))
  33.      (screen (and window (epoch::screen-of-window window))))
  34.     (cond
  35.       (window
  36.        (epoch::map-screen screen)
  37.        (epoch::raise-screen screen)
  38.        (epoch::select-screen screen)
  39.        (epoch::warp-pointer 10 10 screen)
  40.        (switch-to-buffer buffer)
  41.        window)
  42.       (t
  43.        (old-pop-to-buffer buffer split)))))
  44.  
  45. (if (fboundp 'old-display-buffer) nil
  46.     (fset 'old-display-buffer (symbol-function 'display-buffer)))
  47.  
  48. (defun display-buffer (buffer &optional split)
  49.   (let* ((window (get-buffer-window buffer))
  50.      (screen (and window (epoch::screen-of-window window))))
  51.     (cond
  52.       (window
  53.        (epoch::map-screen screen)
  54.        (epoch::raise-screen screen)
  55.        window)
  56.       (t
  57.        (old-display-buffer buffer split)))))
  58.  
  59. (setq temp-buffer-show-hook '(lambda (x) (display-buffer x)))
  60.