@@ -133,7 +133,7 @@ the executable."
133
133
; ; If the vterm-module is not compiled yet, compile it
134
134
(unless (require 'vterm-module nil t )
135
135
(if (or vterm-always-compile-module
136
- (y-or-n-p " Vterm needs `vterm-module' to work. Compile it now? " ))
136
+ (y-or-n-p " Vterm needs `vterm-module' to work. Compile it now? " ))
137
137
(progn
138
138
(vterm-module-compile)
139
139
(require 'vterm-module ))
@@ -237,7 +237,7 @@ function `vterm--exclude-keys' removes the keybindings defined in
237
237
:set (lambda (sym val )
238
238
(set sym val)
239
239
(when (and (fboundp 'vterm--exclude-keys )
240
- (boundp 'vterm-mode-map ))
240
+ (boundp 'vterm-mode-map ))
241
241
(vterm--exclude-keys vterm-mode-map val)))
242
242
:group 'vterm )
243
243
@@ -691,7 +691,7 @@ Exceptions are defined by `vterm-keymap-exceptions'."
691
691
:command
692
692
`(" /bin/sh" " -c"
693
693
,(format
694
- " stty -nl sane %s erase ^? rows %d columns %d >/dev/null && exec %s"
694
+ " stty -nl sane %s erase ^? rows %d columns %d >/dev/null && exec %s"
695
695
; ; Some stty implementations (i.e. that of *BSD) do not
696
696
; ; support the iutf8 option. to handle that, we run some
697
697
; ; heuristics to work out if the system supports that
@@ -717,7 +717,7 @@ Exceptions are defined by `vterm-keymap-exceptions'."
717
717
; ; mode can break this, leading to segmentation faults.
718
718
(add-hook 'change-major-mode-hook
719
719
(lambda () (interactive )
720
- (user-error " You cannot change major mode in vterm buffers" )) nil t )
720
+ (user-error " You cannot change major mode in vterm buffers" )) nil t )
721
721
722
722
(vterm--set-pty-name vterm--term (process-tty-name vterm--process))
723
723
(process-put vterm--process 'adjust-window-size-function
@@ -835,7 +835,7 @@ will invert `vterm-copy-exclude-prompt' for that call."
835
835
(setq key (upcase key)))
836
836
(vterm--update vterm--term key shift meta ctrl)
837
837
(setq vterm--redraw-immididately t )
838
- (accept-process-output vterm--process vterm-timer-delay nil t ))))
838
+ (accept-process-output vterm--process vterm-timer-delay nil t ))))
839
839
840
840
(defun vterm-send (key )
841
841
" Send KEY to libvterm. KEY can be anything `kbd' understands."
@@ -1122,10 +1122,10 @@ Search Manipulate Selection Data in
1122
1122
(unless (or (string-equal data " ?" )
1123
1123
(string-empty-p data))
1124
1124
(let* ((inhibit-eol-conversion t )
1125
- (decoded-data (decode-coding-string
1126
- (base64-decode-string data) locale-coding-system))
1127
- (select-enable-clipboard select-enable-clipboard)
1128
- (select-enable-primary select-enable-primary))
1125
+ (decoded-data (decode-coding-string
1126
+ (base64-decode-string data) locale-coding-system))
1127
+ (select-enable-clipboard select-enable-clipboard)
1128
+ (select-enable-primary select-enable-primary))
1129
1129
; ; https://invisible-island.net/xterm/ctlseqs/ctlseqs.html
1130
1130
; ; c , p , q , s , 0 , 1 , 2 , 3 , 4 , 5 , 6 , and 7
1131
1131
; ; clipboard, primary, secondary, select, or cut buffers 0 through 7
@@ -1330,19 +1330,19 @@ Argument EVENT process event."
1330
1330
; ; enabled, otherwise the buffer would be redrawn, messing around with the
1331
1331
; ; position of the point.
1332
1332
(unless vterm-copy-mode
1333
- (let* ((size (funcall window-adjust-process-window-size-function
1334
- process windows))
1335
- (width (car size))
1336
- (height (cdr size))
1337
- (inhibit-read-only t ))
1338
- (setq width (- width (vterm--get-margin-width)))
1339
- (setq width (max width vterm-min-window-width))
1340
- (when (and (processp process)
1341
- (process-live-p process)
1342
- (> width 0 )
1343
- (> height 0 ))
1344
- (vterm--set-size vterm--term height width)
1345
- (cons width height)))))
1333
+ (let* ((size (funcall window-adjust-process-window-size-function
1334
+ process windows))
1335
+ (width (car size))
1336
+ (height (cdr size))
1337
+ (inhibit-read-only t ))
1338
+ (setq width (- width (vterm--get-margin-width)))
1339
+ (setq width (max width vterm-min-window-width))
1340
+ (when (and (processp process)
1341
+ (process-live-p process)
1342
+ (> width 0 )
1343
+ (> height 0 ))
1344
+ (vterm--set-size vterm--term height width)
1345
+ (cons width height)))))
1346
1346
1347
1347
(defun vterm--get-margin-width ()
1348
1348
" Get margin width of vterm buffer when `display-line-numbers-mode' is enabled."
@@ -1607,4 +1607,7 @@ can find them and remove them."
1607
1607
1608
1608
1609
1609
(provide 'vterm )
1610
+ ; ; Local Variables:
1611
+ ; ; indent-tabs-mode: nil
1612
+ ; ; End:
1610
1613
; ;; vterm.el ends here
0 commit comments