diff options
| author | Richard M. Stallman | 1996-04-21 01:40:33 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-04-21 01:40:33 +0000 |
| commit | 8b09046c0813d6aea87d5752fb4c319b87b3fb70 (patch) | |
| tree | ac53788740283838578f170dcc5e5bbbbfcde8a3 | |
| parent | 8ca3cd44629036e51f108e0e82cdd3c8a6778e1d (diff) | |
| download | emacs-8b09046c0813d6aea87d5752fb4c319b87b3fb70.tar.gz emacs-8b09046c0813d6aea87d5752fb4c319b87b3fb70.zip | |
(simula-submit-bug-report): Use emacs-version.
(simula-version): Function and variable deleted.
| -rw-r--r-- | lisp/progmodes/simula.el | 14 |
1 files changed, 2 insertions, 12 deletions
diff --git a/lisp/progmodes/simula.el b/lisp/progmodes/simula.el index 6661a109bb5..661fc68f45e 100644 --- a/lisp/progmodes/simula.el +++ b/lisp/progmodes/simula.el | |||
| @@ -1,11 +1,9 @@ | |||
| 1 | ;;; simula.el --- SIMULA 87 code editing commands for Emacs | 1 | ;;; simula.el --- SIMULA 87 code editing commands for Emacs |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1994 Hans Henrik Eriksen | 3 | ;; Copyright (C) 1992, 1994, 1996 Free Software Foundation, Inc. |
| 4 | ;; Copyright (C) 1992, 1994 Free Software Foundation, Inc. | ||
| 5 | 4 | ||
| 6 | ;; Author: Hans Henrik Eriksen <hhe@ifi.uio.no> | 5 | ;; Author: Hans Henrik Eriksen <hhe@ifi.uio.no> |
| 7 | ;; Maintainer: simula-mode@ifi.uio.no | 6 | ;; Maintainer: simula-mode@ifi.uio.no |
| 8 | ;; Version: 0.994 | ||
| 9 | ;; Adapted-By: ESR | 7 | ;; Adapted-By: ESR |
| 10 | ;; Keywords: languages | 8 | ;; Keywords: languages |
| 11 | 9 | ||
| @@ -1637,17 +1635,9 @@ If not nil and not t, move to limit of search and return nil." | |||
| 1637 | 1635 | ||
| 1638 | ;; defuns for submitting bug reports | 1636 | ;; defuns for submitting bug reports |
| 1639 | 1637 | ||
| 1640 | (defconst simula-version "0.994" | ||
| 1641 | "simula-mode version number.") | ||
| 1642 | (defconst simula-mode-help-address "simula-mode@ifi.uio.no" | 1638 | (defconst simula-mode-help-address "simula-mode@ifi.uio.no" |
| 1643 | "Address accepting submission of simula-mode bug reports.") | 1639 | "Address accepting submission of simula-mode bug reports.") |
| 1644 | 1640 | ||
| 1645 | (defun simula-version () | ||
| 1646 | "Echo the current version of simula-mode in the minibuffer." | ||
| 1647 | (interactive) | ||
| 1648 | (message "Using simula-mode version %s" simula-version) | ||
| 1649 | (simula-keep-region-active)) | ||
| 1650 | |||
| 1651 | ;; get reporter-submit-bug-report when byte-compiling | 1641 | ;; get reporter-submit-bug-report when byte-compiling |
| 1652 | (and (fboundp 'eval-when-compile) | 1642 | (and (fboundp 'eval-when-compile) |
| 1653 | (eval-when-compile | 1643 | (eval-when-compile |
| @@ -1661,7 +1651,7 @@ If not nil and not t, move to limit of search and return nil." | |||
| 1661 | (require 'reporter) | 1651 | (require 'reporter) |
| 1662 | (reporter-submit-bug-report | 1652 | (reporter-submit-bug-report |
| 1663 | simula-mode-help-address | 1653 | simula-mode-help-address |
| 1664 | (concat "simula-mode " simula-version) | 1654 | (concat "simula-mode from Emacs " emacs-version) |
| 1665 | (list | 1655 | (list |
| 1666 | ;; report only the vars that affect indentation | 1656 | ;; report only the vars that affect indentation |
| 1667 | 'simula-emacs-features | 1657 | 'simula-emacs-features |