Mercurial > hg > xemacs-beta

comparison lisp/finder.el @ 430:a5df635868b2 r21-2-23

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-23
author cvs
date Mon, 13 Aug 2007 11:29:08 +0200
parents 3ecd8885ac67
children abe6d1db359e
comparison
equal deleted inserted replaced
429:8305706cbb93 430:a5df635868b2
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