X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=pspp-mode.el;h=c12acdfbe132b07bbff78e767c091795e9a1da9d;hb=refs%2Fheads%2Fspv3;hp=bc2a3d1997f1e257fbda1b10c308cbe68284a000;hpb=2990bac9e19a4a92606c830ab39ef3eb1e555481;p=pspp diff --git a/pspp-mode.el b/pspp-mode.el index bc2a3d1997..c12acdfbe1 100644 --- a/pspp-mode.el +++ b/pspp-mode.el @@ -1,31 +1,29 @@ -;;; pspp-mode-el -- Major mode for editing PSPP files +;;; pspp-mode.el --- Major mode for editing PSPP files -;; Copyright (C) 2005 Free Software Foundation -;; Author: John Darrington +;; Copyright (C) 2005,2018 Free Software Foundation +;; Author: Scott Andrew Borton ;; Created: 05 March 2005 +;; Version: 1.0 ;; Keywords: PSPP major-mode +;; This file is not part of GNU Emacs. - - +;;; Commentary: ;; Based on the example wpdl-mode.el by Scott Borton -;; Author: Scott Andrew Borton ;; Copyright (C) 2000, 2003 Scott Andrew Borton -;; 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 of -;; the License, or (at your option) any later version. - -;; This program is distributed in the hope that it will be -;; useful, but WITHOUT ANY WARRANTY; without even the implied -;; warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR -;; PURPOSE. See the GNU General Public License for more details. - -;; You should have received a copy of the GNU General Public -;; License along with this program; if not, write to the Free -;; Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, -;; MA 02110-1301 USA +;; 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 3 of the License, or +;; (at your option) any later version. +;; +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. +;; +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see . ;;; Code: (defvar pspp-mode-hook nil) @@ -35,6 +33,7 @@ pspp-mode-map) "Keymap for PSPP major mode") +;;;+++autoload (add-to-list 'auto-mode-alist '("\\.sps\\'" . pspp-mode)) @@ -258,7 +257,7 @@ ;; String delimiters (modify-syntax-entry ?' "\"" x-pspp-mode-syntax-table) - (modify-syntax-entry ?" "\"" x-pspp-mode-syntax-table) + (modify-syntax-entry ?\" "\"" x-pspp-mode-syntax-table) x-pspp-mode-syntax-table) @@ -389,7 +388,6 @@ "PRINT FORMATS" "PRINT SPACE" "PROCEDURE OUTPUT" - "PROCESS IF" "PROXIMITIES" "Q" "QUICK CLUSTER" @@ -679,7 +677,7 @@ ) "Highlighting expressions for PSPP mode.") - +;;;+++autoload (defun pspp-mode () (interactive) (kill-all-local-variables) @@ -689,10 +687,8 @@ (set (make-local-variable 'font-lock-keywords-case-fold-search) t) (set (make-local-variable 'font-lock-defaults) '(pspp-font-lock-keywords)) - ;; Register our indentation function - (set (make-local-variable 'indent-line-function) 'pspp-indent-line) - + (set (make-local-variable 'comment-start ) "* ") (set (make-local-variable 'compile-command) (concat "pspp " buffer-file-name