home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / editor / me_cd.arc / KILLBUF.MUT < prev    next >
Encoding:
Text File  |  1988-08-11  |  735 b   |  29 lines
  1.     ;; An alternate kill buffer
  2.     ;; If a window is displaying the buffer to be deleted, 
  3.     ;;  delete that window.
  4. (defun
  5.   killZbuffer
  6.   {
  7.     (string name 100)(int j n b)
  8.  
  9.     (name (complete "Kill buffer: " 0x8))
  10.     (if (== name "") (name (buffer-name -1)))
  11.     (if (== -1 (b (attached-buffer name)))
  12.     { (msg name " is not a buffer.")(done) })
  13.     (if (buffer-modified b)
  14.       (if (yesno name " has changed.  Kill anyway") 
  15.     (buffer-modified b FALSE)
  16.     (done)
  17.       )
  18.     )
  19.     (n 0)
  20.     (while (and (< n (windows))(> (windows) 1))
  21.     {
  22.       (if (== b (attached-buffer n)) { (delete-window n) (continue) } )
  23.       (+= n 1)
  24.     })
  25.     (kill-buffer name)
  26.   }
  27.   MAIN { (bind-to-key "killZbuffer" "C-xk") }
  28. )
  29.