Mercurial > emacs

comparison lisp/progmodes/idlwave.el @ 65584:6dbba0bd58df

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Message format fixes, commit no. 3
author Deepak Goel <deego@gnufans.org>
date Sun, 18 Sep 2005 12:31:28 +0000
parents 18a818a2ee7c
children a11fdee52c05 2a679c81f552 fa0da9b57058
comparison
equal deleted inserted replaced
65583:703495630901 65584:6dbba0bd58df
3993 (while (and item) 3993 (while (and item)
3994 ;; 3994 ;;
3995 ;; Call etags 3995 ;; Call etags
3996 (if (not (string-match "^[ \\t]*$" item)) 3996 (if (not (string-match "^[ \\t]*$" item))
3997 (progn 3997 (progn
3998 (message (concat "Tagging " item "...")) 3998 (message "%s" (concat "Tagging " item "..."))
3999 (setq errbuf (get-buffer-create "*idltags-error*")) 3999 (setq errbuf (get-buffer-create "*idltags-error*"))
4000 (setq status (+ status 4000 (setq status (+ status
4001 (if (eq 0 (call-process 4001 (if (eq 0 (call-process
4002 "sh" nil errbuf nil "-c" 4002 "sh" nil errbuf nil "-c"
4003 (concat cmd append item))) 4003 (concat cmd append item)))
5186 (error (throw 'continue t))) 5186 (error (throw 'continue t)))
5187 (when (and 5187 (when (and
5188 message-base 5188 message-base
5189 (not (string= idlwave-library-catalog-libname 5189 (not (string= idlwave-library-catalog-libname
5190 old-libname))) 5190 old-libname)))
5191 (message (concat message-base 5191 (message "%s" (concat message-base
5192 idlwave-library-catalog-libname)) 5192 idlwave-library-catalog-libname))
5193 (setq old-libname idlwave-library-catalog-libname)) 5193 (setq old-libname idlwave-library-catalog-libname))
5194 (when idlwave-library-catalog-routines 5194 (when idlwave-library-catalog-routines
5195 (setq all-routines 5195 (setq all-routines
5196 (append 5196 (append