comparison lisp/net/tramp.el @ 101020:d2bdff7dc5f1

* net/tramp.el: Revert previous patch. `last-command-char' is used in code used only for XEmacs, where it is different from `last-command-event'.

101019:f883a64629e1

	  (if (and (symbol-value 'minibuffer-electric-file-name-behavior)
		   (tramp-tramp-file-p (buffer-substring)))
	      ;; We don't need to handle `last-input-event', because
	      ;; due to the key map we know it must be ?/ or ?~.
	      (let ((s (concat (buffer-substring (point-min) (point))
			       (string last-command-event))))
		(delete-region (point-min) (point))
		(insert (substitute-in-file-name s))
		(setq ad-return-value last-command-event))
	    ad-do-it))))

   '(minibuffer-electric-separator
     minibuffer-electric-tilde)))

101020:d2bdff7dc5f1

	  (if (and (symbol-value 'minibuffer-electric-file-name-behavior)
		   (tramp-tramp-file-p (buffer-substring)))
	      ;; We don't need to handle `last-input-event', because
	      ;; due to the key map we know it must be ?/ or ?~.
	      (let ((s (concat (buffer-substring (point-min) (point))
			       (string last-command-char))))
		(delete-region (point-min) (point))
		(insert (substitute-in-file-name s))
		(setq ad-return-value last-command-char))
	    ad-do-it))))

   '(minibuffer-electric-separator
     minibuffer-electric-tilde)))