Fix the parenthesis around pcase-let
This commit is contained in:
parent
8333940a3a
commit
cbdd3275a3
|
@ -455,11 +455,11 @@ Please go to 'System Preferences > Security & Privacy > Privacy > Accessibility'
|
||||||
|
|
||||||
(defun emacs-everywhere--app-info-linux ()
|
(defun emacs-everywhere--app-info-linux ()
|
||||||
"Return information on the active window, on linux."
|
"Return information on the active window, on linux."
|
||||||
(pcase-let ((`(,window-id ,app-name ,window-title ,window-geometry))
|
(pcase-let ((`(,window-id ,app-name ,window-title ,window-geometry)
|
||||||
(pcase emacs-everywhere--display-server
|
(pcase emacs-everywhere--display-server
|
||||||
(`(x11 . ,_) (emacs-everywhere--app-info-linux-x11))
|
(`(x11 . ,_) (emacs-everywhere--app-info-linux-x11))
|
||||||
(`(wayland . KDE) (emacs-everywhere--app-info-linux-kde))
|
(`(wayland . KDE) (emacs-everywhere--app-info-linux-kde))
|
||||||
(_ (user-error "Unable to fetch app info with display server %S" emacs-everywhere--display-server))))
|
(_ (user-error "Unable to fetch app info with display server %S" emacs-everywhere--display-server)))))
|
||||||
(make-emacs-everywhere-app
|
(make-emacs-everywhere-app
|
||||||
:id (string-to-number window-id)
|
:id (string-to-number window-id)
|
||||||
:class app-name
|
:class app-name
|
||||||
|
|
Loading…
Reference in New Issue