diff options
| author | Glenn Morris <rgm@gnu.org> | 2013-02-23 13:49:41 -0800 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2013-02-23 13:49:41 -0800 |
| commit | 3296c4430fd307a2efe869b66fcbf4240a91cb32 (patch) | |
| tree | fc5cee178534f8f0fd67ac413e5c75c66fb4a811 /lisp/progmodes/simula.el | |
| parent | fd7436285b30a9396f1953e46d5cc6074a80a9b5 (diff) | |
| download | emacs-3296c4430fd307a2efe869b66fcbf4240a91cb32.tar.gz emacs-3296c4430fd307a2efe869b66fcbf4240a91cb32.tar.bz2 emacs-3296c4430fd307a2efe869b66fcbf4240a91cb32.zip | |
Make simula.el special bug reporting obsolete
* progmodes/simula.el (simula-mode-menu, simula-mode-map):
Remove bug report entries.
(simula-mode-help-address, simula-submit-bug-report): Make obsolete.
Diffstat (limited to 'lisp/progmodes/simula.el')
| -rw-r--r-- | lisp/progmodes/simula.el | 34 |
1 files changed, 6 insertions, 28 deletions
diff --git a/lisp/progmodes/simula.el b/lisp/progmodes/simula.el index d71c9adbef4..77732ed3241 100644 --- a/lisp/progmodes/simula.el +++ b/lisp/progmodes/simula.el @@ -244,8 +244,7 @@ for SIMULA mode to function correctly." ; it determines the flavor of the Emacs running (defvar simula-mode-menu - '(["Report Bug" simula-submit-bug-report t] - ["Indent Line" simula-indent-line t] + '(["Indent Line" simula-indent-line t] ["Backward Statement" simula-previous-statement t] ["Forward Statement" simula-next-statement t] ["Backward Up Level" simula-backward-up-level t] @@ -286,10 +285,6 @@ for SIMULA mode to function correctly." ;; Emacs 19 defines menus in the mode map (define-key map [menu-bar simula] (cons "SIMULA" (make-sparse-keymap "SIMULA"))) - (define-key map [menu-bar simula bug-report] - '("Submit Bug Report" . simula-submit-bug-report)) - (define-key map [menu-bar simula separator-indent] - '("--")) (define-key map [menu-bar simula indent-exp] '("Indent Expression" . simula-indent-exp)) (define-key map [menu-bar simula indent-line] @@ -1622,28 +1617,11 @@ If not nil and not t, move to limit of search and return nil." (defconst simula-mode-help-address "bug-gnu-emacs@gnu.org" "Address accepting submission of `simula-mode' bug reports.") -(defun simula-submit-bug-report () - "Submit via mail a bug report on `simula-mode'." - (interactive) - (and - (y-or-n-p "Do you want to submit a report on simula-mode? ") - (reporter-submit-bug-report - simula-mode-help-address - (concat "simula-mode from Emacs " emacs-version) - (list - ;; report only the vars that affect indentation - 'simula-indent-level - 'simula-substatement-offset - 'simula-continued-statement-offset - 'simula-label-offset - 'simula-if-indent - 'simula-inspect-indent - 'simula-electric-indent - 'simula-abbrev-keyword - 'simula-abbrev-stdproc - 'simula-abbrev-file - 'simula-tab-always-indent - )))) +(make-obsolete-variable 'simula-mode-help-address 'report-emacs-bug-address + "24.4") + +(define-obsolete-function-alias 'simula-submit-bug-report + 'report-emacs-bug "24.4") (provide 'simula) |