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

[xemacs-cvs at xemacs.org]

  User: albinus 
  Date: 07/03/31 18:37:44

  Modified:    packages/xemacs-packages/tramp/lisp ChangeLog tramp.el
Log:
* lisp/tramp.el (tramp-completion-mode): `last-input-event' may have no
character approximation.

Revision  Changes    Path
1.41      +6 -1      XEmacs/packages/xemacs-packages/tramp/lisp/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/tramp/lisp/ChangeLog,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -p -r1.40 -r1.41
--- ChangeLog	2007/03/21 21:24:43	1.40
+++ ChangeLog	2007/03/31 16:37:41	1.41
@@ -1,7 +1,12 @@
+2007-03-31  Joachim Schrod  <jschrod at acm.org>  (tiny change)
+
+	* tramp.el (tramp-completion-mode): `last-input-event' may have no
+	character approximation.
+
 2007-03-21  Michael Albinus  <michael.albinus at gmx.de>
 
 	* tramp.el (tramp-handle-make-auto-save-file-name): Apply
-	`tramp-temporary-file-directory for compatibility reasons.
+	`tramp-temporary-file-directory' for compatibility reasons.
 
 2007-01-15  Michael Albinus  <michael.albinus at gmx.de>
 



1.41      +2 -0      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.40
retrieving revision 1.41
diff -u -p -r1.40 -r1.41
--- tramp.el	2007/03/21 21:24:43	1.40
+++ tramp.el	2007/03/31 16:37:41	1.41
@@ -4548,6 +4548,8 @@ Falls back to normal file name handler i
 		       (char-equal last-input-event ?\ )))))
 	;; XEmacs
 	(and (featurep 'xemacs)
+	     ;; `last-input-event' may have no character approximation.
+	     (funcall (symbol-function 'event-to-character) last-input-event)
 	     (or
 	      ;; ?\t has event-modifier 'control
 	      (char-equal