[Emacs-diffs] Changes to emacs/lisp/progmodes/ld-script.el

[John Paul Wallington]

Index: emacs/lisp/progmodes/ld-script.el
diff -c emacs/lisp/progmodes/ld-script.el:1.2 
emacs/lisp/progmodes/ld-script.el:1.3
*** emacs/lisp/progmodes/ld-script.el:1.2       Mon Sep  1 11:45:35 2003
--- emacs/lisp/progmodes/ld-script.el   Mon Sep 22 08:35:28 2003
***************
*** 5,10 ****
--- 5,12 ----
  ;; Author: Masatake YAMATO<address@hidden>
  ;; 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)
***************
*** 20,26 ****
  ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  ;; Boston, MA 02111-1307, USA.
  
! ;;; Codes:
  
  ;; Custom
  (defgroup ld-script nil
--- 22,32 ----
  ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  ;; Boston, MA 02111-1307, USA.
  
! ;;; Commentary:
! 
! ;; Major mode for editing GNU linker (ld) scripts.
! 
! ;;; Code:
  
  ;; Custom
  (defgroup ld-script nil
***************
*** 35,41 ****
    :group 'ld-script)
  
  ;; Syntax rules
! (defvar ld-script-mode-syntax-table 
    (let ((st (make-syntax-table)))
      (modify-syntax-entry ?\  "-"   st)
      (modify-syntax-entry ?{ "(}" st)
--- 41,47 ----
    :group 'ld-script)
  
  ;; Syntax rules
! (defvar ld-script-mode-syntax-table
    (let ((st (make-syntax-table)))
      (modify-syntax-entry ?\  "-"   st)
      (modify-syntax-entry ?{ "(}" st)
***************
*** 67,78 ****
    "Syntax table used while in `ld-script-mode'.")
  
  ;; Font lock keywords
! (defvar ld-script-keywords 
!   '("ENTRY" "INCLUDE" "INPUT" "GROUP" 
      "OUTPUT" "SEARCH_DIR" "STARTUP"
      "OUTPUT_FORMAT" "TARGET"
      "ASSERT" "EXTERN" "FORCE_COMMON_ALLOCATION" "NOCROSSREFS" "OUTPUT_ARCH"
!     "PROVIDE" 
      "SECTIONS" "SORT" "COMMON" "KEEP"
      "BYTE" "SHORT" "LONG" "QUAD" "SQAD"
      "FILL"
--- 73,84 ----
    "Syntax table used while in `ld-script-mode'.")
  
  ;; Font lock keywords
! (defvar ld-script-keywords
!   '("ENTRY" "INCLUDE" "INPUT" "GROUP"
      "OUTPUT" "SEARCH_DIR" "STARTUP"
      "OUTPUT_FORMAT" "TARGET"
      "ASSERT" "EXTERN" "FORCE_COMMON_ALLOCATION" "NOCROSSREFS" "OUTPUT_ARCH"
!     "PROVIDE"
      "SECTIONS" "SORT" "COMMON" "KEEP"
      "BYTE" "SHORT" "LONG" "QUAD" "SQAD"
      "FILL"
***************
*** 86,93 ****
      "VERSION")
    "Keywords used of GNU ld script.")
  
! (defvar ld-script-builtins 
!   '("ABSOLUTE" 
      "ADDR"
      "ALIGN"
      "BLOCK"
--- 92,99 ----
      "VERSION")
    "Keywords used of GNU ld script.")
  
! (defvar ld-script-builtins
!   '("ABSOLUTE"
      "ADDR"
      "ALIGN"
      "BLOCK"
***************
*** 110,116 ****
      ("##\\|#[^#\n]+$"  . font-lock-preprocessor-face)
      ("\\W\\(\\.\\)\\W" 1 ld-script-location-counter-face)
      )
!   "Default font-lock-keywords for `ld-script mode'.")
  
  ;;;###autoload
  (add-to-list 'auto-mode-alist '("\\.lds" . ld-script-mode))
--- 116,122 ----
      ("##\\|#[^#\n]+$"  . font-lock-preprocessor-face)
      ("\\W\\(\\.\\)\\W" 1 ld-script-location-counter-face)
      )
!   "Default font-lock-keywords for `ld-script-mode'.")
  
  ;;;###autoload
  (add-to-list 'auto-mode-alist '("\\.lds" . ld-script-mode))
***************
*** 122,127 ****
--- 128,135 ----
    (set (make-local-variable 'comment-end)   " */")
    (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