CVS update by albinus packages/xemacs-packages/tramp/lisp ...

[xemacs-cvs at xemacs.org]

  User: albinus 
  Date: 06/12/31 20:11:13

  Modified:    packages/xemacs-packages/tramp/lisp ChangeLog tramp.el
Log:
* tramp.el (tramp-completion-mode): Use `natnump' instead of
`wholenump' because of XEmacs.

Revision  Changes    Path
1.38      +6 -2      XEmacs/packages/xemacs-packages/tramp/lisp/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/tramp/lisp/ChangeLog,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -p -r1.37 -r1.38
--- ChangeLog	2006/12/31 14:47:21	1.37
+++ ChangeLog	2006/12/31 19:11:12	1.38
@@ -1,11 +1,15 @@
 2006-12-31  Michael Albinus  <michael.albinus at gmx.de>
 
+	* tramp.el (tramp-completion-mode): Use `natnump' instead of
+	`wholenump' because of XEmacs.
+
+2006-12-31  Michael Albinus  <michael.albinus at gmx.de>
+
 	Version 2.0.55 repackaged.
 
 2006-12-31  Romain Francoise <romain at orebokech.com>
 
-	* tramp.el (tramp-default-method): Don't call `symbol-function'.
-	Apply `funcall' directly on 'executable-find.
+	* tramp.el (tramp-default-method):  Don't use `symbol-function'.
 
 2006-12-30  Michael Albinus  <michael.albinus at gmx.de>
 



1.38      +1 -1      XEmacs/packages/xemacs-packages/tramp/lisp/tramp.el

Index: tramp.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/tramp/lisp/tramp.el,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -p -r1.37 -r1.38
--- tramp.el	2006/12/31 14:47:22	1.37
+++ tramp.el	2006/12/31 19:11:12	1.38
@@ -4536,7 +4536,7 @@ Falls back to normal file name handler i
     (member (match-string 1 file) (mapcar 'car tramp-methods)))
    ((or (equal last-input-event 'tab)
   	;; Emacs
-  	(and (wholenump last-input-event)
+  	(and (natnump last-input-event)
 	     (or
 	      ;; ?\t has event-modifier 'control
 	      (char-equal last-input-event ?\t)