Function: WoMan-find-buffer

WoMan-find-buffer is a byte-compiled function defined in woman.el.gz.

Signature

(WoMan-find-buffer)

Documentation

Switch to buffer corresponding to woman-buffer-number and return it.

If such a buffer does not exist then remove its association from the alist in woman-buffer-alist and return nil.

Source Code

;; Defined in /usr/src/emacs/lisp/woman.el.gz
(defun WoMan-find-buffer ()
  "Switch to buffer corresponding to `woman-buffer-number' and return it.
If such a buffer does not exist then remove its association from the
alist in `woman-buffer-alist' and return nil."
  (if (zerop woman-buffer-number)
      (let ((buffer (get-buffer (cdr (car woman-buffer-alist)))))
	(if buffer
	    (pop-to-buffer-same-window buffer)
	  ;; Delete alist element:
	  (setq woman-buffer-alist (cdr woman-buffer-alist))
	  nil))
    (let* ((prev-ptr (nthcdr (1- woman-buffer-number) woman-buffer-alist))
	   (buffer (get-buffer (cdr (car (cdr prev-ptr))))))
      (if buffer
	  (pop-to-buffer-same-window buffer)
	;; Delete alist element:
	(setcdr prev-ptr (cdr (cdr prev-ptr)))
	(if (>= woman-buffer-number (length woman-buffer-alist))
	    (setq woman-buffer-number 0))
	nil))))