From e462e42fc2fdd00c0ac2d4afeed76270bfe41c42 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 12 Oct 1996 23:54:33 +0000 Subject: [PATCH] Use defalias not define-function. --- lisp/simple.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index 42d5a79abf2..50b4eb1fd92 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -700,7 +700,7 @@ Get previous element of history which is a completion of minibuffer contents." (forward-line (1- arg))))) ;Put this on C-x u, so we can force that rather than C-_ into startup msg -(define-function 'advertised-undo 'undo) +(defalias 'advertised-undo 'undo) (defun undo (&optional arg) "Undo some previous changes. @@ -1601,7 +1601,7 @@ Does not set point. Does nothing if mark ring is empty." (if (null (mark t)) (ding)) (setq mark-ring (cdr mark-ring))))) -(define-function 'exchange-dot-and-mark 'exchange-point-and-mark) +(defalias 'exchange-dot-and-mark 'exchange-point-and-mark) (defun exchange-point-and-mark () "Put the mark where point is now, and point where the mark is now. This command works even when the mark is not active, -- 2.39.5