home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / alt / lucidem / help / 687 < prev    next >
Encoding:
Text File  |  1992-11-13  |  1.9 KB  |  50 lines
  1. Path: sparky!uunet!news.centerline.com!noc.near.net!news.Brown.EDU!qt.cs.utexas.edu!yale.edu!spool.mu.edu!sdd.hp.com!decwrl!pacbell.com!hoptoad!amdcad!amdahl!JUTS!climb!tlp00
  2. From: tlp00@ras.amdahl.com (Tibor Polgar)
  3. Newsgroups: alt.lucid-emacs.help
  4. Subject: Re: Buffer mode addition
  5. Message-ID: <eezU02Su2a.O01@JUTS.ccc.amdahl.com>
  6. Date: 13 Nov 92 00:37:46 GMT
  7. References: <bbFQ02MO2a5N01@JUTS.ccc.amdahl.com>
  8. Sender: netnews@ccc.amdahl.com
  9. Reply-To: tlp00@ras.amdahl.com
  10. Organization: Sun Microsystems
  11. Lines: 37
  12.  
  13. Whoops forgot that i had a local function called from within Buffer-menu-new-screen.
  14.  
  15. --------------------------------------------------------------------------------------
  16. (defun close-window-nosave ()
  17.    "Smart close window, without saving the file."
  18.    (interactive)
  19.    (close-window nil)
  20.    )
  21.  
  22. (defun close-window (save)
  23.    "Smart close window, optionally save and kill buffer."
  24.  
  25.    (let
  26.       ((multiple-windows (buffer-in-multiple-windows))
  27.        (this-buffer (current-buffer)))
  28.  
  29.        (if (and save (not multiple-windows) (not buffer-read-only))
  30.           (save-buffer))                      ; Save the buffer.
  31.        (if server-buffer-clients              ; Take care of server-edit stuff.
  32.           (server-edit))
  33.        (if (not multiple-windows)
  34.           (kill-buffer this-buffer))          ; Kill the buffer.
  35.        (delete-window)                        ; Remove window or screen.
  36.       )
  37.    )
  38.  
  39.  
  40. -------------------------------------------------------------------------------
  41. | Tibor L. Polgar    |  (408) 746-8649     | tlp00@climb.ras.amdahl.com
  42. | Amdahl Corporation
  43. | 1250 East Arques Avenue (M/S 281)
  44. | P.O. Box 3470
  45. | Sunnyvale, CA 94088-3470
  46. |
  47. | The opinions expressed above are mine, solely, and do not in any way
  48. | shape or form reflect the opinions or policies of Amdahl Corp.
  49. -------------------------------------------------------------------------------
  50.