[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/eat 64c537da78 1/8: Replace 'let*' with 'let' wherever pos
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/eat 64c537da78 1/8: Replace 'let*' with 'let' wherever possible |
Date: |
Mon, 28 Nov 2022 11:58:51 -0500 (EST) |
branch: elpa/eat
commit 64c537da7813d128aac8638c32885d05b4f9c5a6
Author: Akib Azmain Turja <akib@disroot.org>
Commit: Akib Azmain Turja <akib@disroot.org>
Replace 'let*' with 'let' wherever possible
* eat.el (eat--t-eol, eat--t-reset, eat--t-erase-in-disp)
(eat--t-disable-alt-disp, eat--t-resize, eat-term-redisplay)
(eat-term-input-event, eat--adjust-process-window-size): Use
'let' instead of 'let*' wherever possible.
* eat.el (eat--eshell-exec-visual): Use (VAR nil) form instead
of VAR form in 'let*' variable list.
---
eat.el | 48 ++++++++++++++++++++++++------------------------
1 file changed, 24 insertions(+), 24 deletions(-)
diff --git a/eat.el b/eat.el
index f7cc934988..b46c8985d1 100644
--- a/eat.el
+++ b/eat.el
@@ -1775,7 +1775,7 @@ Treat LINE FEED (?\\n) as the line delimiter."
;; Move to the beginning of line, record the point, and return that
;; point and the distance of that point from current line in lines.
(save-excursion
- (let* ((moved (eat--t-goto-eol n)))
+ (let ((moved (eat--t-goto-eol n)))
(cons (point) moved))))
(defun eat--t-col-motion (n)
@@ -1981,7 +1981,7 @@ Don't `set' it, bind it to a value with `let'.")
(defun eat--t-reset ()
"Reset terminal."
- (let* ((disp (eat--t-term-display eat--t-term)))
+ (let ((disp (eat--t-term-display eat--t-term)))
;; Reset most of the things to their respective default values.
(setf (eat--t-term-parser-state eat--t-term) nil)
(setf (eat--t-disp-begin disp) (point-min-marker))
@@ -2783,10 +2783,10 @@ to (1, 1). When N is 3, also erase the scrollback."
;; Restore position.
(goto-char pos))))
(1
- (let* ((y (eat--t-cur-y cursor))
- (x (eat--t-cur-x cursor))
- ;; Should we erase including the cursor position?
- (incl-point (/= (point) (point-max))))
+ (let ((y (eat--t-cur-y cursor))
+ (x (eat--t-cur-x cursor))
+ ;; Should we erase including the cursor position?
+ (incl-point (/= (point) (point-max))))
;; Delete the region to be erased.
(delete-region (eat--t-disp-begin disp)
(if incl-point (1+ (point)) (point)))
@@ -2911,17 +2911,17 @@ If DONT-MOVE-CURSOR is non-nil, don't move cursor from
current
position."
;; Make sure we in the alternative display.
(when (eat--t-term-main-display eat--t-term)
- (let* ((main-disp (eat--t-term-main-display eat--t-term))
- (old-y (eat--t-cur-y
- (eat--t-disp-cursor
- (eat--t-term-display eat--t-term))))
- (old-x (eat--t-cur-x
- (eat--t-disp-cursor
- (eat--t-term-display eat--t-term))))
- (width (eat--t-disp-width
- (eat--t-term-display eat--t-term)))
- (height (eat--t-disp-height
- (eat--t-term-display eat--t-term))))
+ (let ((main-disp (eat--t-term-main-display eat--t-term))
+ (old-y (eat--t-cur-y
+ (eat--t-disp-cursor
+ (eat--t-term-display eat--t-term))))
+ (old-x (eat--t-cur-x
+ (eat--t-disp-cursor
+ (eat--t-term-display eat--t-term))))
+ (width (eat--t-disp-width
+ (eat--t-term-display eat--t-term)))
+ (height (eat--t-disp-height
+ (eat--t-term-display eat--t-term))))
;; Delete everything.
(delete-region (point-min) (point-max))
;; Restore the main display.
@@ -4092,7 +4092,7 @@ DATA is the selection data encoded in base64."
;; Calculate the beginning position of display.
(goto-char (point-max))
;; TODO: This part needs explanation.
- (let* ((disp-begin (car (eat--t-bol (- (1- height))))))
+ (let ((disp-begin (car (eat--t-bol (- (1- height))))))
(when (< (eat--t-disp-begin disp) disp-begin)
(goto-char (max (- (eat--t-disp-begin disp) 1)
(point-min)))
@@ -4369,7 +4369,7 @@ you need the position."
"Prepare TERMINAL for displaying."
(let ((inhibit-quit t))
(eat--t-with-env terminal
- (let* ((disp (eat--t-term-display eat--t-term)))
+ (let ((disp (eat--t-term-display eat--t-term)))
(when (< (eat--t-disp-old-begin disp)
(eat--t-disp-begin disp))
;; Join long lines.
@@ -4541,8 +4541,8 @@ client process may get confused."
(setq tmp (get char 'ascii-character))
(setq char tmp))))
(when (numberp char)
- (let* ((base (event-basic-type char))
- (mods (event-modifiers char)))
+ (let ((base (event-basic-type char))
+ (mods (event-modifiers char)))
;; Try to avoid event-convert-list if possible.
(if (and (characterp char)
(not (memq 'meta mods))
@@ -5715,8 +5715,8 @@ to it."
PROCESS is the process whose window to resize, and WINDOWS is the list
of window displaying PROCESS's buffer."
- (let* ((size (funcall window-adjust-process-window-size-function
- process windows)))
+ (let ((size (funcall window-adjust-process-window-size-function
+ process windows)))
(when size
(let ((width (max (car size) 1))
(height (max (cdr size) 1))
@@ -6361,7 +6361,7 @@ allowed."
(defvar eshell-interpreter-alist) ; In `esh-ext'.
(require 'esh-ext)
(require 'esh-util)
- (let* (eshell-interpreter-alist
+ (let* ((eshell-interpreter-alist nil)
(interp (eshell-find-interpreter (car args) (cdr args)))
(program (car interp))
(args (flatten-tree
- [nongnu] elpa/eat updated (499c9dd911 -> f3fed64957), ELPA Syncer, 2022/11/28
- [nongnu] elpa/eat 6271968c86 2/8: Use as less let-bindings as possible, ELPA Syncer, 2022/11/28
- [nongnu] elpa/eat 6a94082eff 3/8: Use hash table to convert from charset, ELPA Syncer, 2022/11/28
- [nongnu] elpa/eat 64c537da78 1/8: Replace 'let*' with 'let' wherever possible,
ELPA Syncer <=
- [nongnu] elpa/eat bc4bd45fa6 5/8: Avoid copying STR to the extent possible, ELPA Syncer, 2022/11/28
- [nongnu] elpa/eat f3fed64957 8/8: Prefer 'pcase-exhaustive' over 'pcase', ELPA Syncer, 2022/11/28
- [nongnu] elpa/eat b36f923919 7/8: * eat.el (eat--t-change-charset): Assert argument, ELPA Syncer, 2022/11/28
- [nongnu] elpa/eat 9d14bbeaa5 4/8: Support multi-column characters properly, ELPA Syncer, 2022/11/28
- [nongnu] elpa/eat 9a5bd15866 6/8: Combine multiple setq/setf/setq-local into one, ELPA Syncer, 2022/11/28