|
|
1.1 ! root 1: ;; Copyright (C) 1985 Richard M. Stallman and K. Shane Hartman. ! 2: ! 3: ;; This file is part of GNU Emacs. ! 4: ! 5: ;; GNU Emacs is distributed in the hope that it will be useful, ! 6: ;; but WITHOUT ANY WARRANTY. No author or distributor ! 7: ;; accepts responsibility to anyone for the consequences of using it ! 8: ;; or for whether it serves any particular purpose or works at all, ! 9: ;; unless he says so in writing. Refer to the GNU Emacs General Public ! 10: ;; License for full details. ! 11: ! 12: ;; Everyone is granted permission to copy, modify and redistribute ! 13: ;; GNU Emacs, but only under the conditions described in the ! 14: ;; GNU Emacs General Public License. A copy of this license is ! 15: ;; supposed to have been given to you along with GNU Emacs so you ! 16: ;; can know your rights and responsibilities. It should be in a ! 17: ;; file named COPYING. Among other things, the copyright notice ! 18: ;; and this notice must be preserved on all copies. ! 19: ! 20: ! 21: ;; >> This should be an address which is accessible to your machine, ! 22: ;; >> otherwise you can't use this file. It will only work on the ! 23: ;; >> internet with this address. ! 24: ! 25: (defvar bug-gnu-emacs "[email protected]" ! 26: "Address of site maintaining mailing list for Gnu emacs bugs.") ! 27: ! 28: (defun report-emacs-bug (topic) ! 29: "Report a bug in Gnu emacs. ! 30: Prompts for bug subject. Leaves you in a mail buffer." ! 31: (interactive "sBug Subject: ") ! 32: (mail nil bug-gnu-emacs topic) ! 33: (goto-char (point-max)) ! 34: (insert "\nIn " (emacs-version) ! 35: " on " (system-name) " (" (symbol-name system-type) ")\n\n") ! 36: (message (substitute-command-keys "Type \\[mail-send] to send bug report."))) ! 37:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.