Mercurial > hg > xemacs-beta

comparison lisp/finder.el @ 269:b2472a1930f2 r20-5b33

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b33
author cvs
date Mon, 13 Aug 2007 10:27:19 +0200
parents 41f2f0e326e9
children c5d627a313b1
comparison
equal deleted inserted replaced
268:6ced69ccd85f 269:b2472a1930f2
177 (save-excursion 177 (save-excursion
178 (set-buffer (get-buffer-create "*finder-scratch*")) 178 (set-buffer (get-buffer-create "*finder-scratch*"))
179 (buffer-disable-undo (current-buffer)) 179 (buffer-disable-undo (current-buffer))
180 (erase-buffer) 180 (erase-buffer)
181 (insert-file-contents (expand-file-name f d)) 181 (insert-file-contents (expand-file-name f d))
182 (setq summary (lm-synopsis) 182 (condition-case err
183 keywords (lm-keywords))) 183 (setq summary (lm-synopsis)
184 keywords (lm-keywords))
185 (t (message "finder: error processing %s %S" f err))))
184 (if (not summary) 186 (if (not summary)
185 nil 187 nil
186 (insert (format " (\"%s\"\n " f)) 188 (insert (format " (\"%s\"\n " f))
187 (prin1 summary (current-buffer)) 189 (prin1 summary (current-buffer))
188 (insert "\n ") 190 (insert "\n ")