home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / functions / buffer-exists.el < prev    next >
Encoding:
Text File  |  1992-03-09  |  1.0 KB  |  37 lines
  1. ;; LCD Archive Entry:
  2. ;; buffer-exists|Terrence Brannon|brannon@jove.cs.caltech.edu
  3. ;; |invoke to check if a buffer is currently in emacs memory before creating
  4. ;; |92-03-08|0.0|~/functions/buffer-exists.el.Z|
  5.  
  6. ;; sample usage: (if be:buffer-exists("datafile")
  7. ;;                 ; dont create
  8. ;;           ; else get-buffer-create)
  9.  
  10.  
  11. (defvar be:verbose-mode t
  12.   "A value other than nil means tell the result of the search for the
  13. buffer and return t or nil. A value other than t means simply return t or nil")
  14.  
  15. (defun buf-eq-test(be:current-buf)
  16.   (interactive)
  17.   (string-equal be:buffer-we-are-looking-for be:current-buf))
  18.  
  19. (defun be:buffer-exists(be:bufname)
  20.   (interactive)
  21.   (setq be:buffer-we-are-looking-for be:bufname)
  22.   (if (memq t (mapcar 'buf-eq-test (mapcar 'buffer-name (buffer-list))))
  23.       (if be:verbose-mode
  24.     (progn 
  25.       (message (format be:buffer-we-are-looking-for " was found"))
  26.       t)
  27.     t)
  28.     (if be:verbose-mode
  29.     (progn 
  30.       (message (format be:buffer-we-are-looking-for " was not found"))
  31.       nil)
  32.       nil)))
  33.  
  34.  
  35.     
  36.  
  37.