home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / functions / clean-buffers.el < prev    next >
Encoding:
Text File  |  1992-11-25  |  2.1 KB  |  62 lines
  1. ; Newsgroups: gnu.emacs.sources
  2. ; Path: hal.com!halaus!halaus!petonic
  3. ; From: petonic@hal.com (Michael A. Petonic)
  4. ; Subject: Deleting buffers in a regular manner
  5. ; Reply-To: petonic@hal.com (Michael A. Petonic)
  6. ; Organization: Henry's Laughing Gas Co., Inc.
  7. ; Date: 12 Nov 92 01:25:40 GMT
  8. ; 
  9. ; Ever want to delete all those buffers whose names start with
  10. ; "sent \(mail\|reply\) to ..." and such?  Here's a snippet of my
  11. ; .emacs so that this may be done in a regular manner.  Just
  12. ; put the following in your .emacs and call M-x clean-buffers whenever
  13. ; your buffer list gets too big.  It works off of the clean-buffer-list
  14. ; variable which is a list of regular expressions to delete.  
  15. ; 
  16. ; If called with an argument, clean-buffers will delete those buffers
  17. ; that are found with clean-buffer-extended-list, as well as what's
  18. ; in clean-buffer-list.
  19. ; 
  20. ; -pet-
  21. ; 
  22. ; -----------
  23. ;;;;;;;;;;;;;;;;;
  24. ;;
  25. ;; LCD Archive Entry:
  26. ;; clean-buffers|Michael A. Petonic|petonic@hal.com|
  27. ;; Buffer list cleanup stuff.|
  28. ;; 92-11-12||~/functions/clean-buffers.el.Z|
  29. ;;
  30. ;; -pet-  petonic@hal.com
  31. ;; Date: 92/11/11
  32. ;; 
  33. ;; Buffer list cleanup stuff.
  34. ;;
  35. ;; Standard GNU copyleft applies but I'm too harried to include it here.
  36. ;;  - not that anyone would "steal" this code, anyway.
  37. ;;
  38.  
  39. (defvar clean-buffer-list '("sent \\(reply\\)\\|\\(mail\\) to" "*gif parts*")
  40.   "List of regexs of buffers to clean up")
  41. (defvar clean-buffer-extended-list '("*Manual-")
  42.   "List of extended regexs of buffers to clean up when M-x clean buffers
  43. is called with an argument")
  44.  
  45. (defun clean-buffers (arg)
  46.   "Cleans temporary and old buffers as defined by the regexs in 
  47. clean-buffer-list.  If called with an ARG, then cleans up buffers specified
  48. by the regexs in clean-buffers-extended-list."
  49.   (interactive "P")
  50.   (mapcar '(lambda (buffer)
  51.          (let ((buffer (buffer-name buffer)))
  52.            (mapcar '(lambda (re)
  53.               (if (string-match re buffer)
  54.                   (progn
  55.                 (message "Deleting %s" buffer)
  56.                 (kill-buffer buffer))))
  57.                (append clean-buffer-list
  58.                    (if arg
  59.                    clean-buffer-extended-list
  60.                  nil)))))
  61.       (buffer-list)))
  62.