57 |
(let (tag-list |
(let (tag-list |
58 |
refillp |
refillp |
59 |
(case-fold-search t) |
(case-fold-search t) |
60 |
(regexp |
(regexp |
61 |
(concat |
(concat |
62 |
"\\(" |
"\\(" |
63 |
|
|
116 |
(delete-region (match-beginning 0) (match-end 0)))) |
(delete-region (match-beginning 0) (match-end 0)))) |
117 |
;; else this is a Node |
;; else this is a Node |
118 |
(setq tag-list |
(setq tag-list |
119 |
(cons (list |
(cons (list |
120 |
(concat "Node: " (match-string-no-properties 13)) |
(concat "Node: " (match-string-no-properties 13)) |
121 |
(1+ (match-beginning 10))) |
(1+ (match-beginning 10))) |
122 |
tag-list)))) |
tag-list)))) |
453 |
(cond ((not (file-exists-p file)) |
(cond ((not (file-exists-p file)) |
454 |
(message ">> %s does not exist!" file) |
(message ">> %s does not exist!" file) |
455 |
(setq error 1 |
(setq error 1 |
456 |
command-line-args-left (cdr command-line-args-left))) |
command-line-args-left (cdr command-line-args-left))) |
457 |
((file-directory-p file) |
((file-directory-p file) |
458 |
(setq command-line-args-left (nconc (directory-files file) |
(setq command-line-args-left (nconc (directory-files file) |
459 |
(cdr command-line-args-left)))) |
(cdr command-line-args-left)))) |