Mercurial > emacs

changeset 16436:d2acc84badf4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use defalias not define-function.
author Richard M. Stallman <rms@gnu.org>
date Sat, 12 Oct 1996 23:54:33 +0000
parents f91116721767
children 0626ef653e3e
files lisp/simple.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/simple.el	Sat Oct 12 23:54:12 1996 +0000
+++ b/lisp/simple.el	Sat Oct 12 23:54:33 1996 +0000
@@ -700,7 +700,7 @@
       (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 @@
 	(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,