[Emacs-diffs] Changes to emacs/lisp/ido.el,v

[Michael Albinus]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Michael Albinus <albinus>       07/11/24 15:40:10

Index: ido.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/ido.el,v
retrieving revision 1.137
retrieving revision 1.138
diff -u -b -r1.137 -r1.138
--- ido.el      19 Nov 2007 08:50:03 -0000      1.137
+++ ido.el      24 Nov 2007 15:40:09 -0000      1.138
@@ -3373,12 +3373,13 @@
    ;; Caller must have done that if necessary.
 
    ((and ido-enable-tramp-completion
-        (or (fboundp 'tramp-completion-mode)
+        (or (fboundp 'tramp-completion-mode-p)
             (require 'tramp nil t))
         (string-match "\\`/[^/]+[:@]\\'" dir))
     ;; Strip method:address@hidden: part of tramp completions.
     ;; Tramp completions do not include leading slash.
-    (let ((len (1- (length dir)))
+    (let* ((len (1- (length dir)))
+          (tramp-completion-mode t)
          (compl
           (or (file-name-all-completions "" dir)
               ;; work around bug in ange-ftp.