1 files changed, 0 insertions, 62 deletions
diff --git a/app-emacs/gnuserv/files/gnuserv-3.12.8-cl.patch b/app-emacs/gnuserv/files/gnuserv-3.12.8-cl.patch
index df5d1098ce5e..cf5c062fdab1 100644
--- a/app-emacs/gnuserv/files/gnuserv-3.12.8-cl.patch
+++ b/app-emacs/gnuserv/files/gnuserv-3.12.8-cl.patch
@@ -1,67 +1,5 @@
 Most Common Lisp macros want a cl- prefix in Emacs 27 and later
 
---- gnuserv-3.12.8/devices.el
-+++ gnuserv-3.12.8/devices.el
-@@ -31,7 +31,7 @@
- ;; XEmacs 19.14.  A 'device' for Emacs 19 is just a frame, from which we can
- ;; determine the connection to an X display, etc.
- 
--(require 'cl)
-+(require 'cl-macs)
- (eval-when-compile
-   (if (string-match "XEmacs" (emacs-version))
-       (set 'byte-optimize nil)))
-@@ -220,43 +220,43 @@
-       (setq frames (cdr frames)))))
- 
- (defun device-color-cells (&optional device)
--  (case window-system
-+  (cl-case window-system
-     ((x win32 w32 pm) (x-display-color-cells device))
-     (ns (ns-display-color-cells device))
-     (otherwise 1)))
- 
- (defun device-pixel-width (&optional device)
--  (case window-system
-+  (cl-case window-system
-     ((x win32 w32 pm) (x-display-pixel-width device))
-     (ns (ns-display-pixel-width device))
-     (otherwise (frame-width device))))
- 
- (defun device-pixel-height (&optional device)
--  (case window-system
-+  (cl-case window-system
-     ((x win32 w32 pm) (x-display-pixel-height device))
-     (ns (ns-display-pixel-height device))
-     (otherwise (frame-height device))))
- 
- (defun device-mm-width (&optional device)
--  (case window-system
-+  (cl-case window-system
-     ((x win32 w32 pm) (x-display-mm-width device))
-     (ns (ns-display-mm-width device))
-     (otherwise nil)))
- 
- (defun device-mm-height (&optional device)
--  (case window-system
-+  (cl-case window-system
-     ((x win32 w32 pm) (x-display-mm-height device))
-     (ns (ns-display-mm-height device))
-     (otherwise nil)))
- 
- (defun device-bitplanes (&optional device)
--  (case window-system
-+  (cl-case window-system
-     ((x win32 w32 pm) (x-display-planes device))
-     (ns (ns-display-planes device))
-     (otherwise 2)))
- 
- (defun device-class (&optional device)
--  (case window-system
-+  (cl-case window-system
-     (x					; X11
-      (cond
-       ((fboundp 'x-display-visual-class)
 --- gnuserv-3.12.8/gnuserv-compat.el
 +++ gnuserv-3.12.8/gnuserv-compat.el
 @@ -49,7 +49,7 @@