Mercurial > emacs
changeset 17596:6deb79521f42
Don't bind C-x m, C-x 4 m, C-x 5 m.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 29 Apr 1997 02:07:51 +0000 |
| parents | eaad8bd00b12 |
| children | a60da52b8ea2 |
| files | lisp/mail/sendmail.el |
| diffstat | 1 files changed, 4 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/sendmail.el Tue Apr 29 02:07:34 1997 +0000 +++ b/lisp/mail/sendmail.el Tue Apr 29 02:07:51 1997 +0000 @@ -1115,7 +1115,10 @@ (or (bolp) (newline)) (goto-char start)))) -;; Put these last, to reduce chance of lossage from quitting in middle of loading the file. +;; Put these commands last, to reduce chance of lossage from quitting +;; in middle of loading the file. + +;;;###autoload (add-hook 'same-window-buffer-names "*mail*") ;;;###autoload (defun mail (&optional noerase to subject in-reply-to cc replybuffer actions) @@ -1267,14 +1270,6 @@ (pop-to-buffer "*mail*")) (mail noerase to subject in-reply-to cc replybuffer sendactions)) -;;; Do not execute these when sendmail.el is loaded, -;;; only in loaddefs.el. -;;;###autoload (define-key ctl-x-map "m" 'mail) -;;;###autoload (define-key ctl-x-4-map "m" 'mail-other-window) -;;;###autoload (define-key ctl-x-5-map "m" 'mail-other-frame) - -;;;###autoload (add-hook 'same-window-buffer-names "*mail*") - ;;; Do not add anything but external entries on this page. (provide 'sendmail)