diff options
author | Richard M. Stallman <rms@gnu.org> | 1996-10-12 23:54:33 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1996-10-12 23:54:33 +0000 |
commit | 6b9c2a769bad591970beb9f27e19d78d7ca5e9f9 (patch) | |
tree | 75bc21a394bc228444f802f48413f4b871ee5103 /lisp | |
parent | b4ed0f0b9a43bcdd5c1f25ab032524fd4a210bca (diff) | |
download | emacs-6b9c2a769bad591970beb9f27e19d78d7ca5e9f9.tar.gz |
Use defalias not define-function.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/simple.el | 4 |
1 files 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, |