User: adrian Date: 06/06/07 08:56:23 Modified: xemacs-builds/adrian/website apa-linklint-utils.el Log: Get inline with igrep-find use model. User needs to run command from desired directory. Revision Changes Path 1.2 +3 -5 XEmacs/xemacs-builds/adrian/website/apa-linklint-utils.el Index: apa-linklint-utils.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs-builds/adrian/website/apa-linklint-utils.el,v retrieving revision 1.1 retrieving revision 1.2 diff -u -p -r1.1 -r1.2 --- apa-linklint-utils.el 2006/06/04 13:20:53 1.1 +++ apa-linklint-utils.el 2006/06/07 06:56:23 1.2 ＠＠ -29,16 +29,14 ＠＠ (nth 1 (current-time-zone))))) -(defun apa-linklint-were-ok-urlsum (directory) +(defun apa-linklint-were-ok-urlsum () "Search linklint urlsum.txt files for number of links that \"were ok, \". -Files are searched recursively by `igrep-find'. +Files are searched recursively in current directory by `igrep-find'. The resulting igrep buffer is sorted by number of failed links and offered to be saved by use of `apa-save-compilation'. " - (interactive - (list - (read-directory-name "linklint output directory"))) + (interactive) (save-excursion (let ((compilation-mode-hook 'apa-linklint-compilation-mode-hook))