Luj/eat-emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Don't put 'error' as the only then part of 'if'

Browse source 
* eat.el (eat-semi-char-mode, eat-char-mode): Don't put 'error'
as only then part of 'if'.
This commit is contained in:
Akib Azmain Turja 2022-11-29 01:05:32 +06:00
parent 10d9f3cb56
commit 59c0745e75
No known key found for this signature in database
GPG key ID: 5535FCF54D88616B
1 changed files with 14 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
eat.el
View file

@ -5366,24 +5366,24 @@ ARG is passed to `yank-pop', which see."
(defun eat-semi-char-mode ()
"Switch to semi-char mode."
(interactive)
(if (not eat--terminal)
(error "Process not running")
(setq buffer-read-only nil)
(eat--char-mode -1)
(eat--semi-char-mode +1)
(eat--grab-mouse nil eat--mouse-grabbing-type)
(force-mode-line-update)))
(unless eat--terminal
(error "Process not running"))
(setq buffer-read-only nil)
(eat--char-mode -1)
(eat--semi-char-mode +1)
(eat--grab-mouse nil eat--mouse-grabbing-type)
(force-mode-line-update))
(defun eat-char-mode ()
"Switch to char mode."
(interactive)
(if (not eat--terminal)
(error "Process not running")
(setq buffer-read-only nil)
(eat--semi-char-mode -1)
(eat--char-mode +1)
(eat--grab-mouse nil eat--mouse-grabbing-type)
(force-mode-line-update)))
(unless eat--terminal
(error "Process not running"))
(setq buffer-read-only nil)
(eat--semi-char-mode -1)
(eat--char-mode +1)
(eat--grab-mouse nil eat--mouse-grabbing-type)
(force-mode-line-update))
(defvar eat--eshell-semi-char-mode)
(defvar eat--eshell-char-mode)