diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2023-02-20 13:05:04 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2023-02-20 13:05:06 -0700 |
commit | 5be1458a96005f7204a0301a53732e7964ea773a (patch) | |
tree | b6c3a6b9dc1c9c095ba025c1e30a520e4f8d14ec | |
parent | 9b7844012d48d944019d3a21fd7a2da44ab15a91 (diff) | |
download | dotfiles-5be1458a96005f7204a0301a53732e7964ea773a.tar.gz |
when passing to gdbmacs, ignore unreadable return values
-rw-r--r-- | .emacs.d/init.el | 34 |
1 files changed, 19 insertions, 15 deletions
diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 64efdfd3..b432b017 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -2985,15 +2985,17 @@ mutt's review view, after exiting EDITOR." `(progn (defun ,new (&rest args) ,(interactive-form cmd) (if (spw/may-pass-to-gdbmacs-p) - (server-eval-at - "gdbmacs" - `(let ((display-buffer-overriding-action - '(display-buffer-pop-up-frame - (pop-up-frame-parameters - (display . ,(frame-parameter nil 'display))))) - (default-directory ,default-directory) - (current-prefix-arg ',current-prefix-arg)) - (apply #',',cmd ',args))) + (ignore-error invalid-read-syntax + (server-eval-at + "gdbmacs" + `(let ((display-buffer-overriding-action + '(display-buffer-pop-up-frame + (pop-up-frame-parameters + (display + . ,(frame-parameter nil 'display))))) + (default-directory ,default-directory) + (current-prefix-arg ',current-prefix-arg)) + (apply #',',cmd ',args)))) (apply #',cmd args))) (global-set-key [remap ,cmd] #',new)))) @@ -3158,12 +3160,14 @@ mutt's review view, after exiting EDITOR." (if (spw/may-pass-to-gdbmacs-p) ;; We'd like to just bind `display-buffer-overriding-action', but ;; Gnus doesn't respect that when it starts up. - (server-eval-at - "gdbmacs" `(with-selected-frame - (make-frame - '((display . ,(frame-parameter nil 'display)))) - (let ((default-directory ,default-directory)) - ,(list ',name ,@arglist-names)))) + (ignore-error invalid-read-syntax + (server-eval-at + "gdbmacs" `(with-selected-frame + (make-frame + '((display + . ,(frame-parameter nil 'display)))) + (let ((default-directory ,default-directory)) + ,(list ',name ,@arglist-names))))) ,@(cdr parsed-body))))) (defvar gnus-always-read-dribble-file) |