wgester/dotfiles
1
0
Fork 0
forked from colonelpanic/dotfiles
Code Pull Requests Activity

[Emacs] Fix yank-pop (M-y/select paste from kill ring) in term-mode

Browse Source
This commit is contained in:
Ivan Malison 2023-08-03 20:47:46 -06:00
parent bd3eb57de3
commit 31eaea2720
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
dotfiles/emacs.d/README.org
View File

@ -4043,11 +4043,14 @@ in term-mode. This makes term-mode 1000% more useful
(term-line-mode) (term-line-mode)
(imalison:avy arg)) (imalison:avy arg))
(defun imalison:term-paste (&optional string) (defun imalison:term-yank (&optional string)
(interactive) (interactive)
(process-send-string (process-send-string
(get-buffer-process (current-buffer)) (get-buffer-process (current-buffer))
(if string string (current-kill 0))))) (if string string (current-kill 0))))
(defun imalison:term-yank-pop ()
(interactive)
(imalison:term-yank (read-from-kill-ring "Yank from kill-ring: "))))
:bind :bind
(:map term-mode-map (:map term-mode-map
("C-c C-k" . imalison:term-char-mode) ("C-c C-k" . imalison:term-char-mode)
@ -4058,8 +4061,8 @@ in term-mode. This makes term-mode 1000% more useful
("M-x" . execute-extended-command) ("M-x" . execute-extended-command)
("C-j" . imalison:avy-term) ("C-j" . imalison:avy-term)
("M-:" . eval-expression) ("M-:" . eval-expression)
("C-y" . imalison:term-paste) ("C-y" . imalison:term-yank)
("M-y" . yank-pop)) ("M-y" . imalison:term-yank-pop))
:config :config
(progn (progn