Mercurial > hg > xemacs-beta

comparison lisp/prim/advocacy.el @ 100:4be1180a9e89 r20-1b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b2
author cvs
date Mon, 13 Aug 2007 09:15:11 +0200
parents 131b0175ea99
children 41ff10fd062f
comparison
equal deleted inserted replaced
99:2d83cbd90d8d 100:4be1180a9e89
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
17 ;; General Public License for more details. 17 ;; General Public License for more details.
18 18
19 ;; You should have received a copy of the GNU General Public License 19 ;; You should have received a copy of the GNU General Public License
20 ;; along with XEmacs; see the file COPYING. If not, write to the 20 ;; along with XEmacs; see the file COPYING. If not, write to the
21 ;; Free Software Foundation, 59 Temple Place - Suite 330, 21 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
22 ;; Boston, MA 02111-1307, USA. 22 ;; Boston, MA 02111-1307, USA.
23 23
24 ;;;###autoload 24 ;;;###autoload
25 (defvar xemacs-praise-sound-file "sounds/im_so_happy.au" 25 (defvar xemacs-praise-sound-file "sounds/im_so_happy.au"
26 "The name of an audio file containing something to play 26 "The name of an audio file containing something to play
67 67
68 ;;;###autoload 68 ;;;###autoload
69 (defun praise-be-unto-emacs (&optional arg) 69 (defun praise-be-unto-emacs (&optional arg)
70 (interactive "_p") 70 (interactive "_p")
71 (error "Obsolete function. Use `praise-be-unto-xemacs'.")) 71 (error "Obsolete function. Use `praise-be-unto-xemacs'."))
72 (make-obsolete 'praise-be-unto-emacs "use praise-be-unto-xemacs") 72 (make-compatible 'praise-be-unto-emacs "use praise-be-unto-xemacs")
73 73
74 ;;;###autoload 74 ;;;###autoload
75 (defun all-hail-xemacs (&optional arg) 75 (defun all-hail-xemacs (&optional arg)
76 "All Hail XEmacs!" 76 "All Hail XEmacs!"
77 (interactive "_p") 77 (interactive "_p")
79 79
80 ;;;###autoload 80 ;;;###autoload
81 (defun all-hail-emacs (&optional arg) 81 (defun all-hail-emacs (&optional arg)
82 (interactive "_p") 82 (interactive "_p")
83 (error "Obsolete function. Use `all-hail-xemacs'.")) 83 (error "Obsolete function. Use `all-hail-xemacs'."))
84 (make-obsolete 'all-hail-emacs "use all-hail-xemacs") 84 (make-compatible 'all-hail-emacs "use all-hail-xemacs")
85
86 ;;; advocacy.el ends here