From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 4 Aug 2010 18:04:29 +0000 (+0200)
Subject: * lisp/simple.el (exchange-dot-and-mark): Mark obsolete, finally.
X-Git-Tag: emacs-pretest-23.2.90~139^2~33^2~1
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c613687be4a79df9fe2e3ef12b4fe3fecd07a591;p=emacs.git

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

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,