Mercurial > emacs

comparison lisp/progmodes/simula.el @ 15054:df34d8bec5fc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(simula-submit-bug-report): Use emacs-version. (simula-version): Function and variable deleted.
author Richard M. Stallman <rms@gnu.org>
date Sun, 21 Apr 1996 01:40:33 +0000
parents 68d9a01cfb23
children 3c57dbbf9d95
comparison
equal deleted inserted replaced
15053:68d9a01cfb23 15054:df34d8bec5fc
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
12 ;; This file is part of GNU Emacs. 10 ;; This file is part of GNU Emacs.
13 11
1635 (list 'store-match-data original)))))) 1633 (list 'store-match-data original))))))
1636 1634
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
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 1640
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
1654 (require 'reporter))) 1644 (require 'reporter)))
1659 (and 1649 (and
1660 (y-or-n-p "Do you want to submit a report on simula-mode? ") 1650 (y-or-n-p "Do you want to submit a report on simula-mode? ")
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
1668 'simula-indent-level 1658 'simula-indent-level
1669 'simula-substatement-offset 1659 'simula-substatement-offset