[Emacs-diffs] Changes to emacs/lisp/informat.el

[Juanma Barranquero]

Index: emacs/lisp/informat.el
diff -c emacs/lisp/informat.el:1.19 emacs/lisp/informat.el:1.20
*** emacs/lisp/informat.el:1.19 Sun Jul 15 12:15:34 2001
--- emacs/lisp/informat.el      Tue Feb  4 06:30:48 2003
***************
*** 57,63 ****
          (let (tag-list
                refillp
                (case-fold-search t)
!               (regexp 
                 (concat
                  "\\("
  
--- 57,63 ----
          (let (tag-list
                refillp
                (case-fold-search t)
!               (regexp
                 (concat
                  "\\("
  
***************
*** 116,122 ****
                    (delete-region  (match-beginning 0) (match-end 0))))
                ;; else this is a Node
                (setq tag-list
!                     (cons (list 
                             (concat "Node: " (match-string-no-properties 13))
                             (1+ (match-beginning 10)))
                            tag-list))))
--- 116,122 ----
                    (delete-region  (match-beginning 0) (match-end 0))))
                ;; else this is a Node
                (setq tag-list
!                     (cons (list
                             (concat "Node: " (match-string-no-properties 13))
                             (1+ (match-beginning 10)))
                            tag-list))))
***************
*** 453,459 ****
        (cond ((not (file-exists-p file))
               (message ">> %s does not exist!" file)
               (setq error 1
!                    command-line-args-left (cdr command-line-args-left))) 
              ((file-directory-p file)
               (setq command-line-args-left (nconc (directory-files file)
                                              (cdr command-line-args-left))))
--- 453,459 ----
        (cond ((not (file-exists-p file))
               (message ">> %s does not exist!" file)
               (setq error 1
!                    command-line-args-left (cdr command-line-args-left)))
              ((file-directory-p file)
               (setq command-line-args-left (nconc (directory-files file)
                                              (cdr command-line-args-left))))