From cbdd3275a33699b57f90ac8eaf428e3a2d0bbdcd Mon Sep 17 00:00:00 2001 From: Ken Huang Date: Sun, 14 Apr 2024 00:11:07 +0800 Subject: [PATCH] Fix the parenthesis around pcase-let --- emacs-everywhere.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/emacs-everywhere.el b/emacs-everywhere.el index 0823614..931f6ae 100644 --- a/emacs-everywhere.el +++ b/emacs-everywhere.el @@ -455,11 +455,11 @@ Please go to 'System Preferences > Security & Privacy > Privacy > Accessibility' (defun emacs-everywhere--app-info-linux () "Return information on the active window, on linux." - (pcase-let ((`(,window-id ,app-name ,window-title ,window-geometry)) - (pcase emacs-everywhere--display-server - (`(x11 . ,_) (emacs-everywhere--app-info-linux-x11)) - (`(wayland . KDE) (emacs-everywhere--app-info-linux-kde)) - (_ (user-error "Unable to fetch app info with display server %S" emacs-everywhere--display-server)))) + (pcase-let ((`(,window-id ,app-name ,window-title ,window-geometry) + (pcase emacs-everywhere--display-server + (`(x11 . ,_) (emacs-everywhere--app-info-linux-x11)) + (`(wayland . KDE) (emacs-everywhere--app-info-linux-kde)) + (_ (user-error "Unable to fetch app info with display server %S" emacs-everywhere--display-server))))) (make-emacs-everywhere-app :id (string-to-number window-id) :class app-name