3995 |
;; Call etags |
;; Call etags |
3996 |
(if (not (string-match "^[ \\t]*$" item)) |
(if (not (string-match "^[ \\t]*$" item)) |
3997 |
(progn |
(progn |
3998 |
(message (concat "Tagging " item "...")) |
(message "%s" (concat "Tagging " item "...")) |
3999 |
(setq errbuf (get-buffer-create "*idltags-error*")) |
(setq errbuf (get-buffer-create "*idltags-error*")) |
4000 |
(setq status (+ status |
(setq status (+ status |
4001 |
(if (eq 0 (call-process |
(if (eq 0 (call-process |
5188 |
message-base |
message-base |
5189 |
(not (string= idlwave-library-catalog-libname |
(not (string= idlwave-library-catalog-libname |
5190 |
old-libname))) |
old-libname))) |
5191 |
(message (concat message-base |
(message "%s" (concat message-base |
5192 |
idlwave-library-catalog-libname)) |
idlwave-library-catalog-libname)) |
5193 |
(setq old-libname idlwave-library-catalog-libname)) |
(setq old-libname idlwave-library-catalog-libname)) |
5194 |
(when idlwave-library-catalog-routines |
(when idlwave-library-catalog-routines |