debian-copyright.el: Handle font-lock-defaults such that XEmacs doesn't

fail on it (closes: #198601).

1 files changed, 15 insertions, 14 deletions

diff --git a/debian-copyright.el b/debian-copyright.el
index 4fd1486..fe3f3aa 100644
--- a/debian-copyright.el
+++ b/debian-copyright.el
@@ -46,6 +46,9 @@
 (defvar debian-copyright-mode-syntax-table nil
   "Syntax table for debian/copyright mode.")
 
+(defvar debian-copyright-font-lock-keywords nil
+  "Regexps to highlight in font-lock.")
+
 (if debian-copyright-mode-syntax-table
          ()              ; Do not change the table if it is already set up.
        (setq debian-copyright-mode-syntax-table (make-syntax-table))
@@ -65,21 +68,19 @@
   (set-syntax-table debian-copyright-mode-syntax-table)
   (if (or (not (featurep 'goto-addr))
           (not goto-address-highlight-p))
-      (setq font-lock-defaults
-            '((("http:.*$" . font-lock-function-name-face)
-               ("ftp:.*$" . font-lock-function-name-face)
-               ("^Copyright:$" . font-lock-keyword-face))
-              nil		;keywords-only
-              nil		;case-fold
-              ()		;syntax-alist
-              ))
-    (setq font-lock-defaults
-          '((("^Copyright:$" . font-lock-keyword-face))
-            nil		;keywords-only
-            nil		;case-fold
-            ()		;syntax-alist
-            ))
+      (setq debian-copyright-font-lock-keywords
+            '(("http:.*$" . font-lock-function-name-face)
+              ("ftp:.*$" . font-lock-function-name-face)
+              ("^Copyright:$" . font-lock-keyword-face)))
+    (setq debian-copyright-font-lock-keywords
+          '(("^Copyright:$" . font-lock-keyword-face)))
     (goto-address))
+  (setq font-lock-defaults
+        '(debian-copyright-font-lock-keywords
+          nil		;keywords-only
+          nil		;case-fold
+          ()		;syntax-alist
+          ))
   (run-hooks 'debian-copyright-mode-hook))
 
 (run-hooks 'debian-copyright-mode-load-hook)