Commit e462e42f authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

Use defalias not define-function.

parent 1814e5a9
......@@ -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,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment