masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-04 03:13:24 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix tramp-sh-handle-insert-directory

Browse source 
* lisp/net/tramp-sh.el (tramp-sh-handle-insert-directory): Remove also
//DIRED-OPTIONS// line when there is no //DIRED// line.
This commit is contained in:
Michael Albinus 2023-03-05 17:31:26 +01:00
parent 2258ed01f4
commit 5b8e0b3154
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/net/tramp-sh.el
View file

@ -2742,8 +2742,8 @@ The method used must be an out-of-band method."
;; End is followed by \n or by " -> ". ;; End is followed by \n or by " -> ".
(put-text-property start end 'dired-filename t)))))) (put-text-property start end 'dired-filename t))))))
;; Remove trailing lines. ;; Remove trailing lines.
(beginning-of-line) (goto-char (point-max))
(while (looking-at "//") (while (re-search-backward (rx bol "//") nil 'noerror)
(forward-line 1) (forward-line 1)
(delete-region (match-beginning 0) (point)))) (delete-region (match-beginning 0) (point))))
;; Reset multibyte if needed. ;; Reset multibyte if needed.