feat(emacs): Library additions

- Fixes bug with TRAMP Eshell prompt
This commit is contained in:
Madeleine Sydney
2025-02-21 21:14:41 -07:00
parent 0c3e64b52e
commit cda749c536
5 changed files with 23 additions and 7 deletions

View File

@@ -4,6 +4,7 @@
(require 'syd-buffers)
(require 'cl-lib)
(eval-when-compile (require 'cl-lib))
(eval-when-compile (require 'tramp))
(syd-define-stub
syd/copy-this-file
@@ -149,7 +150,6 @@ If FORCE-P, delete without confirmation."
(defun syd-split-tramp-file-name (file-name)
"Split FILE-NAME into (TRAMP-PREFIX . LOCAL-NAME). Returns (nil . FILE-NAME)
if FILE-NAME has no TRAMP prefix."
(require 'tramp)
(if (tramp-tramp-file-p file-name)
(let* ((dissected (tramp-dissect-file-name file-name t))
(localname (tramp-file-name-localname dissected)))