From 30e44447246f1a54e4519ff28458760f876baa05 Mon Sep 17 00:00:00 2001
From: Martin Stjernholm <mast@lysator.liu.se>
Date: Sun, 27 Jun 1999 17:15:42 +0200
Subject: [PATCH] Compatibility fixes for GNU Emacs.
Rev: lib/tools/pike.el:1.2
---
lib/tools/pike.el | 23 +++++++++++++++--------
1 file changed, 15 insertions(+), 8 deletions(-)
diff --git a/lib/tools/pike.el b/lib/tools/pike.el
index 3b24e9ebce..96918f2538 100644
--- a/lib/tools/pike.el
+++ b/lib/tools/pike.el
@@ -1,5 +1,5 @@
;;; pike.el -- Major mode for editing Pike and other LPC files.
-;;; $Id: pike.el,v 1.1 1999/06/26 06:22:22 peter Exp $
+;;; $Id: pike.el,v 1.2 1999/06/27 15:15:42 mast Exp $
;;; Copyright (C) 1995, 1996, 1997, 1998, 1999 Per Hedbor.
;;; This file is distributed as GPL
@@ -24,6 +24,10 @@
(require 'font-lock)
+;; Added in later font-lock versions. Copied here for backward
+;; compatibility.
+(defvar font-lock-preprocessor-face 'font-lock-keyword-face
+ "Don't even think of using this.")
(defconst pike-font-lock-keywords-1 nil
"For consideration as a value of `pike-font-lock-keywords'.
@@ -244,7 +248,7 @@ The name is assumed to begin with a capital letter.")
;; These must come first or the Modifiers from keywords-1 will
;; catch them. We don't want to use override fontification here
;; because then these terms will be fontified within comments.
- ("\\<public\\>" 0 font-lock-reference-face)
+ ("\\<public\\>" 0 font-lock-preprocessor-face)
("\\<inline\\>" 0 font-lock-preprocessor-face)
("\\<final\\>" 0 font-lock-preprocessor-face)
("\\<static\\>" 0 font-lock-preprocessor-face)
@@ -295,11 +299,14 @@ The name is assumed to begin with a capital letter.")
(error t)))))
-(put 'pike-mode 'font-lock-defaults
- '((pike-font-lock-keywords
- pike-font-lock-keywords-1 pike-font-lock-keywords-2
- pike-font-lock-keywords-3)
- nil nil ((?_ . "w")) beginning-of-defun
- (font-lock-mark-block-function . mark-defun)))
+(if (not (assq 'pike-mode font-lock-defaults-alist))
+ (setq font-lock-defaults-alist
+ (cons
+ (cons 'pike-mode
+ '((pike-font-lock-keywords pike-font-lock-keywords-1
+ pike-font-lock-keywords-2 pike-font-lock-keywords-3)
+ nil nil ((?_ . "w")) beginning-of-defun
+ (font-lock-mark-block-function . mark-defun)))
+ font-lock-defaults-alist)))
(autoload 'pike-mode "cc-mode" "Major mode for editing Pike code.")
--
GitLab