Function: decipher-display-regexp

decipher-display-regexp is a byte-compiled function defined in decipher.el.gz.

Signature

(decipher-display-regexp START-REGEXP END-REGEXP)

Documentation

Display text between two regexps in the statistics buffer.

START-REGEXP matches the first line to display. END-REGEXP matches the line after that which ends the display. The ending line is included in the display unless it is blank.

Source Code

;; Defined in /usr/src/emacs/lisp/play/decipher.el.gz
(defun decipher-display-regexp (start-regexp end-regexp)
  "Display text between two regexps in the statistics buffer.

START-REGEXP matches the first line to display.
END-REGEXP matches the line after that which ends the display.
The ending line is included in the display unless it is blank."
  (let (start end)
    (with-current-buffer (decipher-stats-buffer)
      (goto-char (point-min))
      (re-search-forward start-regexp)
      (beginning-of-line)
      (setq start (point))
      (re-search-forward end-regexp)
      (beginning-of-line)
      (or (looking-at "^ *$")
          (forward-line 1))
      (setq end (point)))
    (decipher-display-range start end)))