[Emacs-diffs] /srv/bzr/emacs/trunk r111863: Make simula.el special bug reporting obsolete

[Glenn Morris]

------------------------------------------------------------
revno: 111863
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sat 2013-02-23 13:49:41 -0800
message:
  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.
modified:
  lisp/ChangeLog
  lisp/progmodes/simula.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-02-23 21:14:36 +0000
+++ b/lisp/ChangeLog    2013-02-23 21:49:41 +0000
@@ -1,5 +1,9 @@
 2013-02-23  Glenn Morris  <address@hidden>
 
+       * progmodes/simula.el (simula-mode-menu, simula-mode-map):
+       Remove bug report entries.
+       (simula-mode-help-address, simula-submit-bug-report): Make obsolete.
+
        * emacs-lisp/bytecomp.el (byte-compile-level): New.
        (byte-compile-file, byte-compile-from-buffer):
        Use separate input/output buffers for each level of recursive

=== modified file 'lisp/progmodes/simula.el'
--- a/lisp/progmodes/simula.el  2013-01-01 09:11:05 +0000
+++ b/lisp/progmodes/simula.el  2013-02-23 21:49:41 +0000
@@ -244,8 +244,7 @@
 ; 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 @@
     ;; 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 @@
 (defconst simula-mode-help-address "address@hidden"
   "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)