没有成功。
M-x ansys-mode 显示找不到匹配的命令。
下面是ansys-mode.el的开头一部分内容：
;;; ansys-mod.el --- editing Ansys log files under Emacs
;;; Copyright (C) 1997 Free Software Foundation, Inc.
;; Author: Tim Read <
[email protected]>
;; Author: Geoff Foster <
[email protected]>
;; Maintainer: Tim Read <
[email protected]>
;; Keywords: languages
;;
;; This file has used code from octave-mod.el
;; Copyright (C) 1997 Free Software Foundation, Inc.
;; Author: Kurt Hornik <
[email protected]>
;; Author: John Eaton <
[email protected]>
;;
;; This file is part of GNU Emacs.
;; GNU Emacs 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)
;; any later version.
;; GNU Emacs 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 GNU Emacs; see the file COPYING. If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Commentary:
;; This package provides Emacs support for Ansys.
;; It defines Ansys mode, a major mode for editing Ansys log files.
;;; Code:
(defconst ansys-maintainer-address
"Tim Read <
[email protected]> "
"Current maintainer of the Emacs Ansys package.")
;; Extra highlighting of matching parenthesis (or brace or bracket)
(require 'paren)
(defvar ansys-abbrev-table nil
"Abbrev table for Ansys's reserved words.
All Ansys abbrevs start with a grave accent (`).")
(if ansys-abbrev-table
()
(let ((ac abbrevs-changed))
(define-abbrev-table 'ansys-abbrev-table ())
(define-abbrev ansys-abbrev-table "`i" "*IF,,LT,,THEN" nil)
(define-abbrev ansys-abbrev-table "`eli" "*ELSEIF," nil)
(define-abbrev ansys-abbrev-table "`el" "*ELSE\n" nil)
(define-abbrev ansys-abbrev-table "`ei" "*ENDIF\n" nil)
(define-abbrev ansys-abbrev-table "`cy" "*CYCLE" nil)
(define-abbrev ansys-abbrev-table "`d" "*DO,,1,10,1\n\n*ENDDO" nil)
(define-abbrev ansys-abbrev-table "`ex" "*EXIT" nil)
(define-abbrev ansys-abbrev-table "`g" "*GO" nil)
(define-abbrev ansys-abbrev-table "`cr" "*CREATE\n\n*END" nil)
(define-abbrev ansys-abbrev-table "`e" "*END" nil)
(define-abbrev ansys-abbrev-table "`rp" "/REPLOT" nil)
(define-abbrev ansys-abbrev-table "`t" "/TITLE," nil)
(setq abbrevs-changed ac)))
(defvar ansys-comment-char ?!
"Character to start an Ansys comment.")