/[emacs]/emacs/lisp/eshell/esh-cmd.el
ViewVC logotype

Diff of /emacs/lisp/eshell/esh-cmd.el

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

revision 1.20 by miles, Mon Sep 1 15:45:23 2003 UTC revision 1.21 by johnw, Fri Nov 14 10:59:32 2003 UTC
# Line 1400  messages, and errors." Line 1400  messages, and errors."
1400                        (let ((arg (car args)))                        (let ((arg (car args)))
1401                          (if (and (stringp arg)                          (if (and (stringp arg)
1402                                   (> (length arg) 0)                                   (> (length arg) 0)
1403                                   (get-text-property 0 'number arg))                                   (not (text-property-not-all
1404                                           0 (length arg) 'number t arg)))
1405                              (setcar args (string-to-number arg))))                              (setcar args (string-to-number arg))))
1406                        (setq args (cdr args))))                        (setq args (cdr args))))
1407                    (eshell-apply object eshell-last-arguments))                    (eshell-apply object eshell-last-arguments))

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

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