Mercurial > emacs
comparison lisp/textmodes/refer.el @ 12952:0ad88e6d8ef1
(refer-every): Renamed from every.
(refer-convert-string-to-list-of-strings): Renamed from
convert-string-to-list-of-strings.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 27 Aug 1995 07:20:19 +0000 |
| parents | fb6479579c0b |
| children | 83f275dcd93a |
comparison
equal
deleted
inserted
replaced
| 12951:44f42e36b529 | 12952:0ad88e6d8ef1 |
|---|---|
| 120 "Find next occurrence of entry in refer-bib-files. See refer-find-entry." | 120 "Find next occurrence of entry in refer-bib-files. See refer-find-entry." |
| 121 (interactive) | 121 (interactive) |
| 122 (refer-find-entry-internal refer-previous-keywords t)) | 122 (refer-find-entry-internal refer-previous-keywords t)) |
| 123 | 123 |
| 124 (defun refer-find-entry-internal (keywords continue) | 124 (defun refer-find-entry-internal (keywords continue) |
| 125 (let ((keywords-list (convert-string-to-list-of-strings keywords)) | 125 (let ((keywords-list (refer-convert-string-to-list-of-strings keywords)) |
| 126 (files (if continue | 126 (files (if continue |
| 127 refer-saved-state | 127 refer-saved-state |
| 128 (refer-get-bib-files)))) | 128 (refer-get-bib-files)))) |
| 129 (catch 'found | 129 (catch 'found |
| 130 (while files | 130 (while files |
| 152 (while (and (not found) | 152 (while (and (not found) |
| 153 (not (eobp))) | 153 (not (eobp))) |
| 154 (forward-paragraph 1) | 154 (forward-paragraph 1) |
| 155 (setq end (point)) | 155 (setq end (point)) |
| 156 (setq found | 156 (setq found |
| 157 (every (function (lambda (keyword) | 157 (refer-every (function (lambda (keyword) |
| 158 (goto-char begin) | 158 (goto-char begin) |
| 159 (re-search-forward keyword end t))) | 159 (re-search-forward keyword end t))) |
| 160 keywords-list)) | 160 keywords-list)) |
| 161 (if (not found) | 161 (if (not found) |
| 162 (progn | 162 (progn |
| 163 (setq begin end) | 163 (setq begin end) |
| 164 (goto-char begin)))) | 164 (goto-char begin)))) |
| 165 (if found | 165 (if found |
| 167 (re-search-forward "\\W" nil t) | 167 (re-search-forward "\\W" nil t) |
| 168 (message "Scanning %s... found" file)) | 168 (message "Scanning %s... found" file)) |
| 169 (progn (message "Scanning %s... not found" file) | 169 (progn (message "Scanning %s... not found" file) |
| 170 nil)))) | 170 nil)))) |
| 171 | 171 |
| 172 (defun every (pred l) | 172 (defun refer-every (pred l) |
| 173 (cond ((null l) nil) | 173 (cond ((null l) nil) |
| 174 ((funcall pred (car l)) | 174 ((funcall pred (car l)) |
| 175 (or (null (cdr l)) | 175 (or (null (cdr l)) |
| 176 (every pred (cdr l)))))) | 176 (refer-every pred (cdr l)))))) |
| 177 | 177 |
| 178 (defun convert-string-to-list-of-strings (s) | 178 (defun refer-convert-string-to-list-of-strings (s) |
| 179 (let ((current (current-buffer)) | 179 (let ((current (current-buffer)) |
| 180 (temp-buffer (get-buffer-create "*refer-temp*"))) | 180 (temp-buffer (get-buffer-create "*refer-temp*"))) |
| 181 (set-buffer temp-buffer) | 181 (set-buffer temp-buffer) |
| 182 (erase-buffer) | 182 (erase-buffer) |
| 183 (insert (regexp-quote s)) | 183 (insert (regexp-quote s)) |