[Emacs-diffs] emacs/lisp ChangeLog eshell/esh-arg.el

[Johan Bockgård]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Johan Bockgård <bojohan>        09/07/04 13:20:17

Modified files:
        lisp           : ChangeLog 
        lisp/eshell    : esh-arg.el 

Log message:
        (eshell-parse-argument-hook): Put `number' property on entire argument
        since this is what eshell-lisp-command expects.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15758&r2=1.15759
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/eshell/esh-arg.el?cvsroot=emacs&r1=1.22&r2=1.23

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15758
retrieving revision 1.15759
diff -u -b -r1.15758 -r1.15759
--- ChangeLog   3 Jul 2009 14:54:14 -0000       1.15758
+++ ChangeLog   4 Jul 2009 13:20:09 -0000       1.15759
@@ -1,3 +1,9 @@
+2009-07-04  Johan Bockgård  <address@hidden>
+
+       * eshell/esh-arg.el (eshell-parse-argument-hook): Put `number'
+       property on entire argument since this is what eshell-lisp-command
+       expects.
+
 2009-07-03  Michael Albinus  <address@hidden>
 
        * net/tramp-gvfs.el (tramp-gvfs-methods)

Index: eshell/esh-arg.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/eshell/esh-arg.el,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -b -r1.22 -r1.23
--- eshell/esh-arg.el   5 Jan 2009 03:21:46 -0000       1.22
+++ eshell/esh-arg.el   4 Jul 2009 13:20:16 -0000       1.23
@@ -53,7 +53,7 @@
        (goto-char (match-end 0))
        (let ((str (match-string 0)))
          (if (> (length str) 0)
-             (add-text-properties 0 1 '(number t) str))
+             (add-text-properties 0 (length str) '(number t) str))
          str))))
 
    ;; parse any non-special characters, based on the current context