daniel/emacs-conf
1
2
Fork 0
Code Issues 7 Pull Requests Projects Releases Wiki Activity

update packages

Browse Source
This commit is contained in:
Daniel Weschke
2026-06-27 11:34:21 +02:00
parent 4be4f859c4
commit 1aaef48596
246 changed files with 7997 additions and 4359 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
lisp/vterm/vterm.el
View File

@@ -3,8 +3,8 @@
;; Copyright (C) 2017-2020 by Lukas Fürmetz & Contributors
;;
;; Author: Lukas Fürmetz <fuermetz@mailbox.org>
;; Package-Version: 20251119.1653
;; Package-Revision: a01a2894a1c1
;; Package-Version: 20260626.1906
;; Package-Revision: 9495966d9124
;; URL: https://github.com/akermu/emacs-libvterm
;; Keywords: terminals
;; Package-Requires: ((emacs "25.1"))
@@ -844,7 +844,10 @@ Exceptions are defined by `vterm-keymap-exceptions'."
;; Support to compilation-shell-minor-mode
;; Is this necessary? See vterm--compilation-setup
(setq next-error-function 'vterm-next-error-function)
(setq-local bookmark-make-record-function 'vterm--bookmark-make-record))
(setq-local bookmark-make-record-function 'vterm--bookmark-make-record)
;; Support to display directory in buffer listings.
(setq list-buffers-directory (expand-file-name default-directory)))
(defun vterm--tramp-get-shell (method)
"Get the shell for a remote location as specified in `vterm-tramp-shells'.
@@ -1244,12 +1247,9 @@ Argument ARG is passed to `yank'"
But when clicking to the unused area below the last prompt,
move the cursor to the prompt area."
(interactive "e\np")
(let ((pt (mouse-set-point event promote-to-region)))
(if (= (count-words pt (point-max)) 0)
(vterm-reset-cursor-point)
pt))
;; Otherwise it selects text for every other click
(keyboard-quit))
(if (> (count-words (posn-point (event-end event)) (point-max)) 0)
(mouse-set-point event promote-to-region)
(vterm-reset-cursor-point)))
(defun vterm-send-string (string &optional paste-p)
"Send the string STRING to vterm.
@@ -1703,7 +1703,9 @@ If N is negative backward-line from end of buffer."
(defun vterm--set-directory (path)
"Set `default-directory' to PATH."
(let ((dir (vterm--get-directory path)))
(when dir (setq default-directory dir))))
(when dir
(setq default-directory dir)
(setq list-buffers-directory dir))))
(defun vterm--get-directory (path)
"Get normalized directory to PATH."
@@ -1719,7 +1721,10 @@ If N is negative backward-line from end of buffer."
(progn
(when (file-directory-p dir)
(setq directory (file-name-as-directory dir))))
(setq directory (file-name-as-directory (concat "/-:" path))))))
(let ((method (if (tramp-tramp-file-p default-directory)
(tramp-file-name-method (tramp-dissect-file-name default-directory))
tramp-default-method-marker)))
(setq directory (file-name-as-directory (concat tramp-prefix-format method tramp-postfix-method-format path)))))))
(when (file-directory-p path)
(setq directory (file-name-as-directory path))))
directory)))