diff options
Diffstat (limited to 'app-emacs/gnuserv/files/gnuserv-3.12.8-advice.patch')
| -rw-r--r-- | app-emacs/gnuserv/files/gnuserv-3.12.8-advice.patch | 15 |
1 files changed, 1 insertions, 14 deletions
diff --git a/app-emacs/gnuserv/files/gnuserv-3.12.8-advice.patch b/app-emacs/gnuserv/files/gnuserv-3.12.8-advice.patch index f4ac28efa662..90d4938751e2 100644 --- a/app-emacs/gnuserv/files/gnuserv-3.12.8-advice.patch +++ b/app-emacs/gnuserv/files/gnuserv-3.12.8-advice.patch @@ -2,7 +2,7 @@ defadvice is obsolete in Emacs 30. --- gnuserv-3.12.8/gnuserv-compat.el +++ gnuserv-3.12.8/gnuserv-compat.el -@@ -112,38 +112,35 @@ +@@ -112,28 +112,27 @@ ;; can do! If the device doesn't represent a live frame, we create ;; the frame as requested. @@ -24,19 +24,6 @@ defadvice is obsolete in Emacs 30. + + (advice-add 'make-frame :around #'gnuserv-compat-make-frame) - ;; Advise `delete-frame' to run `delete-device-hook'. This might be a - ;; little too hacky, but it seems to work! If someone actually tries - ;; to do something device specific then it will probably blow up! -- (defadvice delete-frame (before -- gnuserv-compat-delete-frame -- first -- nil -- activate) -+ (defun gnuserv-compat-delete-frame (&optional frame _force) - (run-hook-with-args 'delete-device-hook frame)) - -+ (advice-add 'delete-frame :before #'gnuserv-compat-delete-frame) -+ ;; Advise `filtered-frame-list' to ignore the optional device ;; argument. Here we don't follow the mapping of devices to frames. ;; We just assume that any frame satisfying the predicate will do. |