* lisp/simple.el (exchange-dot-and-mark): Mark obsolete, finally.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 00f6fcfac0210e1272aae2ecd73f94fb74e22e2c..cd9e142f8e755f7fbbc42f9e509300fbf19e06b8 100644 (file)
--- 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 6c8725a813f00d84552d96af2503ba6234887270..d0c27656e41fde5da5bd6e8ec607cb4b3cb69d3a 100644 (file)
--- 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,