Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 05:17:35 +00:00
Code Issues Projects Releases Packages Wiki Activity

Use defalias not define-function.

Browse source
This commit is contained in:
Richard M. Stallman 1996-10-12 23:54:33 +00:00
parent 1814e5a971
commit e462e42fc2
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/simple.el
View file

@ -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,