diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2022-04-28 18:16:54 +0200 |
|---|---|---|
| committer | Jonas Bernoulli <jonas@bernoul.li> | 2022-04-28 18:16:54 +0200 |
| commit | 33c15a57d3d9e44a96287a4b8996d3dfbc0ff656 (patch) | |
| tree | 505177de738b1d1fb97820bfed2d56337e205968 | |
| parent | 0d9cabc994e3749611f0282e3f7f0baabda618d3 (diff) | |
Silence byte-compiler
In truth `looking-back' does not (yet) require the second argument,
but since 5161c9ca6a6107da30d411fb2ad72e01d08e5704 it claims that
it does.
Instead of merely silencing this warning it would be better to
provide a non-nil value for LIMIT. The reason that this function
is now advertised as requiring two arguments is that it may perform
horribly if no proper limit is specified.
| -rw-r--r-- | vterm.el | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1169,7 +1169,7 @@ the return value is `t' when cursor moved." (get-text-property (1- (point)) 'vterm-line-wrap)) t) ((and (= (point) (+ 4 pt)) - (looking-back (regexp-quote "^[[C"))) ;escape code for <right> + (looking-back (regexp-quote "^[[C") nil)) ;escape code for <right> (dotimes (_ 3) (vterm-send-key "<backspace>" nil nil nil t)) ;;delete "^[[C" nil) ((> (point) (1+ pt)) ;auto suggest @@ -1195,7 +1195,7 @@ Return count of moved characeters." "\n")) t) ((and (= (point) (+ 4 pt)) - (looking-back (regexp-quote "^[[D"))) ;escape code for <left> + (looking-back (regexp-quote "^[[D") nil)) ;escape code for <left> (dotimes (_ 3) (vterm-send-key "<backspace>" nil nil nil t)) ;;delete "^[[D" nil) (t nil)))) |