/[emacs]/emacs/lisp/informat.el
ViewVC logotype

Diff of /emacs/lisp/informat.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.19 by pj, Sun Jul 15 16:15:34 2001 UTC revision 1.19.8.1 by miles, Fri Apr 4 06:20:08 2003 UTC
# Line 57  Line 57 
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    
# Line 116  Line 116 
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))))
# Line 453  For example, invoke \"emacs -batch -f ba Line 453  For example, invoke \"emacs -batch -f ba
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))))

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.19.8.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26