Mercurial > hg > xemacs-beta

comparison lisp/finder.el @ 398:74fd4e045ea6 r21-2-29

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-29
author cvs
date Mon, 13 Aug 2007 11:13:30 +0200
parents 8626e4521993
children b8cc9ab3f761
comparison
equal deleted inserted replaced
397:f4aeb21a5bad 398:74fd4e045ea6
283 (setq found (expand-file-name file (car dirs))))) 283 (setq found (expand-file-name file (car dirs)))))
284 (setq dirs (cdr dirs))) 284 (setq dirs (cdr dirs)))
285 found))) 285 found)))
286 286
287 (defun finder-commentary (file) 287 (defun finder-commentary (file)
288 (interactive) 288 "Display FILE's commentary section.
289 (let* ((str (lm-commentary (finder-find-library file)))) 289 FILE should be in a form suitable for passing to `locate-library'."
290 (interactive "sLibrary name: ")
291 (let* ((str (lm-commentary (or (finder-find-library file)
292 (finder-find-library (concat file ".el"))
293 (error "Can't find library %s" file)))))
290 (if (null str) 294 (if (null str)
291 (error "Can't find any Commentary section")) 295 (error "Can't find any Commentary section"))
292 (pop-to-buffer "*Finder*") 296 (pop-to-buffer "*Finder*")
293 ;; XEmacs change 297 ;; XEmacs change
294 (setq buffer-read-only nil 298 (setq buffer-read-only nil