X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmessagexmas.el;h=cf94e54bb1fb54bca7260c17d96c645f6f1cab69;hb=7baaaf6aa6a4c2d3bd925cf20b41019a2a4bd70e;hp=73f4cd40efce0804fd577524836cbc29f249e5cc;hpb=7523ac5e3a0e4196d6043822dcb826c060fc1b58;p=elisp%2Fgnus.git- diff --git a/lisp/messagexmas.el b/lisp/messagexmas.el index 73f4cd4..cf94e54 100644 --- a/lisp/messagexmas.el +++ b/lisp/messagexmas.el @@ -1,7 +1,7 @@ ;;; messagexmas.el --- XEmacs extensions to message -;; Copyright (C) 1996,97,98 Free Software Foundation, Inc. +;; Copyright (C) 1996,97,98,99 Free Software Foundation, Inc. -;; Author: Lars Magne Ingebrigtsen +;; Author: Lars Magne Ingebrigtsen ;; Keywords: mail, news ;; This file is part of GNU Emacs. @@ -25,6 +25,7 @@ ;;; Code: +(eval-when-compile (require 'cl)) (require 'nnheader) (defvar message-xmas-dont-activate-region t @@ -39,7 +40,7 @@ automatically.") 'default-toolbar nil) "*If nil, do not use a toolbar. -If it is non-nil, it must be a toolbar. The five legal values are +If it is non-nil, it must be a toolbar. The five valid values are `default-toolbar', `top-toolbar', `bottom-toolbar', `right-toolbar', and `left-toolbar'.") @@ -90,7 +91,8 @@ If it is non-nil, it must be a toolbar. The five legal values are "Exchange point and mark, but allow for XEmacs' optional argument." (exchange-point-and-mark message-xmas-dont-activate-region)) -(fset 'message-exchange-point-and-mark 'message-xmas-exchange-point-and-mark) +(defalias 'message-exchange-point-and-mark + 'message-xmas-exchange-point-and-mark) (defun message-xmas-maybe-fontify () (when (featurep 'font-lock) @@ -114,8 +116,8 @@ If it is non-nil, it must be a toolbar. The five legal values are (substring table (+ a 26) 255)))) (when (>= emacs-major-version 20) - (fset 'message-make-caesar-translation-table - 'message-xmas-make-caesar-translation-table)) + (defalias 'message-make-caesar-translation-table + 'message-xmas-make-caesar-translation-table)) (add-hook 'message-mode-hook 'message-xmas-maybe-fontify)