2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 00f6fcfac02..cd9e142f8e7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2010-08-04  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * simple.el (exchange-dot-and-mark): Mark obsolete, finally.
+
 2010-08-03  Juanma Barranquero  <lekktu@gmail.com>
 
         * progmodes/which-func.el (which-func-format): Split help-echo text
diff --git a/lisp/simple.el b/lisp/simple.el
index 6c8725a813f..d0c27656e41 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -3819,7 +3819,8 @@ Does not set point.  Does nothing if mark ring is empty."
     (setq mark-ring (cdr mark-ring)))
   (deactivate-mark))
 
-(defalias 'exchange-dot-and-mark 'exchange-point-and-mark)
+(define-obsolete-function-alias
+  'exchange-dot-and-mark 'exchange-point-and-mark "23.3")
 (defun exchange-point-and-mark (&optional arg)
   "Put the mark where point is now, and point where the mark is now.
 This command works even when the mark is not active,