(hide-ifdef-use-define-alist): Pass a list of

[gnu-emacs] / lisp / progmodes / ld-script.el

diff --git a/lisp/progmodes/ld-script.el b/lisp/progmodes/ld-script.el
index 94e829903c9bdb2a3e87f3d9ceee85a5d51f2b94..e326d11c65d97ee25320b470191f55155bdd6e60 100644 (file)
--- a/lisp/progmodes/ld-script.el
+++ b/lisp/progmodes/ld-script.el
@@ -1,10 +1,12 @@
 ;;; ld-script.el --- GNU linker script editing mode for Emacs
 
-;; Copyright (C) 2003 Free Software Foundation, Inc.
+;; Copyright (C) 2003, 2005 Free Software Foundation, Inc.
 
 ;; Author: Masatake YAMATO<jet@gyve.org>
 ;; Keywords: languages, faces
 
+;; This file is part of GNU Emacs.
+
 ;; This program is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
 ;; the Free Software Foundation; either version 2, or (at your option)
@@ -17,10 +19,14 @@
 
 ;; You should have received a copy of the GNU General Public License
 ;; along with this program; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;;; Commentary:
 
-;;; Codes:
+;; Major mode for editing GNU linker (ld) scripts.
+
+;;; Code:
 
 ;; Custom
 (defgroup ld-script nil
@@ -28,14 +34,16 @@
   :prefix "ld-script-"
   :group 'languages)
 
-(defvar ld-script-location-counter-face 'ld-script-location-counter-face)
-(defface ld-script-location-counter-face
+(defvar ld-script-location-counter-face 'ld-script-location-counter)
+(defface ld-script-location-counter
   '((t (:weight bold :inherit font-lock-builtin-face)))
   "Face for location counter in GNU ld script."
   :group 'ld-script)
+;; backward-compatibility alias
+(put 'ld-script-location-counter-face 'face-alias 'ld-script-location-counter)
 
 ;; Syntax rules
-(defvar ld-script-mode-syntax-table 
+(defvar ld-script-mode-syntax-table
   (let ((st (make-syntax-table)))
     (modify-syntax-entry ?\  "-"   st)
     (modify-syntax-entry ?{ "(}" st)
@@ -67,12 +75,12 @@
   "Syntax table used while in `ld-script-mode'.")
 
 ;; Font lock keywords
-(defvar ld-script-keywords 
-  '("ENTRY" "INCLUDE" "INPUT" "GROUP" 
+(defvar ld-script-keywords
+  '("ENTRY" "INCLUDE" "INPUT" "GROUP"
     "OUTPUT" "SEARCH_DIR" "STARTUP"
     "OUTPUT_FORMAT" "TARGET"
     "ASSERT" "EXTERN" "FORCE_COMMON_ALLOCATION" "NOCROSSREFS" "OUTPUT_ARCH"
-    "PROVIDE" 
+    "PROVIDE"
     "SECTIONS" "SORT" "COMMON" "KEEP"
     "BYTE" "SHORT" "LONG" "QUAD" "SQAD"
     "FILL"
@@ -86,8 +94,8 @@
     "VERSION")
   "Keywords used of GNU ld script.")
 
-(defvar ld-script-builtins 
-  '("ABSOLUTE" 
+(defvar ld-script-builtins
+  '("ABSOLUTE"
     "ADDR"
     "ALIGN"
     "BLOCK"
@@ -110,7 +118,7 @@
     ("##\\|#[^#\n]+$"  . font-lock-preprocessor-face)
     ("\\W\\(\\.\\)\\W" 1 ld-script-location-counter-face)
     )
-  "Default font-lock-keywords for `ld-script mode'.")
+  "Default font-lock-keywords for `ld-script-mode'.")
 
 ;;;###autoload
 (add-to-list 'auto-mode-alist '("\\.lds" . ld-script-mode))
@@ -123,5 +131,7 @@
   (set (make-local-variable 'indent-line-function) #'indent-relative)
   (set (make-local-variable 'font-lock-defaults) '(ld-script-font-lock-keywords nil)))
 
+(provide 'ld-script)
+
 ;;; arch-tag: 83280b6b-e6fc-4d00-a630-922d7aec5593
 ;;; ld-script.el ends here