Function: bs--goto-current-buffer

bs--goto-current-buffer is a byte-compiled function defined in bs.el.gz.

Signature

(bs--goto-current-buffer)

Documentation

Goto line which represents the current buffer; actually the line which begins with character in bs-string-current or bs-string-current-marked.

Source Code

;; Defined in /usr/src/emacs/lisp/bs.el.gz
(defun bs--goto-current-buffer ()
  "Goto line which represents the current buffer;
actually the line which begins with character in `bs-string-current' or
`bs-string-current-marked'."
  (let ((regexp (concat "^"
			(regexp-quote bs-string-current)
			"\\|^"
			(regexp-quote bs-string-current-marked)))
	point)
    (save-excursion
      (goto-char (point-min))
      (when (search-forward-regexp regexp nil t)
	(setq point (1- (point)))))
    (when point
      (goto-char point))))