Lines Matching +defs:file +defs:regexp
9 ;; This file is part of GNU Emacs.
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
92 ;; of this file.
123 ;; For example, a file might look like this:
182 ;; pages buffer or address file. This is the same command you use to
183 ;; add a new entry when you are in the pages buffer or address file.
191 ;; file. You do not need to specify the addresses file but merely type
192 ;; `C-x C-p d' from any buffer. The command finds the file, constructs
195 ;; file name.
199 ;; The `pages-addresses-file-name' variable determines the name of
200 ;; the addresses file; by default it is "~/addresses".
229 ;; regexp. In the example above, `C-u C-x C-p C-d 617 RET' would
239 ;; command lists the lengths of pages whose contents match a regexp.
271 (defcustom pages-addresses-file-name "~/addresses"
272 "*Standard name for file of addresses. Entries separated by page-delimiter.
274 :type 'file
386 ;; If going to beginning of file, insert a page-delimiter
405 "Value of last regexp searched for. Initially, nil.")
407 (defun search-pages (regexp)
412 (or pages-last-search "regexp")))))
413 (if (equal regexp "")
414 (setq regexp pages-last-search)
415 (setq pages-last-search regexp))
417 (re-search-forward regexp)
476 (defvar pages-directory-previous-regexp nil
477 "Value of previous regexp used by `pages-directory'.
479 contain matches to the regexp.\)")
504 (defun set-page-delimiter (regexp reset-p)
515 (list (read-string "Set page-delimiter to regexp: " page-delimiter)
522 (setq page-delimiter regexp)
532 (pages-list-all-headers-p count-lines-p &optional regexp)
569 (or pages-directory-previous-regexp "regexp")))))
577 (or pages-directory-previous-regexp "regexp")))))))
579 (if (equal regexp "")
580 (setq regexp pages-directory-previous-regexp)
581 (setq pages-directory-previous-regexp regexp))
627 ;; 2. Else list headers whose pages match regexp.
635 ;; search for selection regexp
636 (if (save-excursion (re-search-forward regexp nil t))
643 ;; search for selection regexp
644 (if (save-excursion (re-search-forward regexp nil t))
764 "Find addresses file and display its directory.
765 By default, create and display directory of `pages-addresses-file-name'.
767 argument, prompt for file name and provide completion.
782 (read-file-name "Filename: " pages-addresses-file-name))))
786 (or filename pages-addresses-file-name)))
787 (if (file-exists-p (or filename pages-addresses-file-name))
790 (find-file-noselect
791 (expand-file-name
792 (or filename pages-addresses-file-name))))
809 (error "No addresses file found!")))