(focus-frame, unfocus-frame): Revert deletion on 2005-05-01.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 52af4d5df1b422877b76def94c5b2ae886f32bb9..dd4c0f8e6ce13d702a009f0302f019ccf221459a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-05-22  Juanma Barranquero  <lekktu@gmail.com>
+
+       * subr.el (focus-frame, unfocus-frame):
+       Revert deletion on 2005-05-01.
+
 2005-05-22  Andre Spiegel  <spiegel@gnu.org>
 
        * vc-cvs.el (vc-cvs-checkout-model): Handle the case where FILE

diff --git a/lisp/subr.el b/lisp/subr.el
index ee084e09f14293360d1196d2ac3e3d29b68290dd..8f9b51c56c784a6dfc6a58f072f0f9ca0d426c83 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -784,6 +784,12 @@ is converted into a string by expressing it in decimal."
   baud-rate)
 (make-obsolete 'baud-rate "use the `baud-rate' variable instead." "before 19.15")
 
+;; These are used by VM and some old programs
+(defalias 'focus-frame 'ignore "")
+(make-obsolete 'focus-frame "it does nothing." "22.1")
+(defalias 'unfocus-frame 'ignore "")
+(make-obsolete 'unfocus-frame "it does nothing." "22.1")
+
 \f
 ;;;; Obsolescence declarations for variables, and aliases.