mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/net/tramp-integration.el (shortdoc): Use `tramp--with-startup'.

Browse source
This commit is contained in:
Michael Albinus 2024-08-06 20:25:20 +02:00
parent fb642d9cf5
commit f0a7eec5a7
1 changed files with 31 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/net/tramp-integration.el
View file

@ -274,6 +274,7 @@ NAME must be equal to `tramp-current-connection'."
;;; Integration of shortdoc.el: ;;; Integration of shortdoc.el:
(tramp--with-startup
(with-eval-after-load 'shortdoc (with-eval-after-load 'shortdoc
;; Some packages deactivate Tramp. They don't deserve a shortdoc entry then. ;; Some packages deactivate Tramp. They don't deserve a shortdoc entry then.
(when (file-remote-p "/ssh:user@host:/tmp/foo") (when (file-remote-p "/ssh:user@host:/tmp/foo")
@ -304,7 +305,7 @@ NAME must be equal to `tramp-current-connection'."
(string-equal (cadr glist) "Remote Files")))) (string-equal (cadr glist) "Remote Files"))))
(setq glist (cdr glist))) (setq glist (cdr glist)))
(when (consp glist) (when (consp glist)
(setcdr glist nil))))))) (setcdr glist nil))))))))
;;; Integration of compile.el: ;;; Integration of compile.el: