# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1086136680 0
# Node ID cd90d2110ad47eeece4a1ae511418c8e6e75dce7
# Parent  cde9d1fff89c03bf3883ad80eda5bce56310f1e0
(process-kill-without-query): Remove spurious "\n" on obsolescence string.
(focus-frame, unfocus-frame): Add obsolescence declaration and empty
docstring.

diff -r cde9d1fff89c -r cd90d2110ad4 lisp/subr.el
--- a/lisp/subr.el	Wed Jun 02 00:35:23 2004 +0000
+++ b/lisp/subr.el	Wed Jun 02 00:38:00 2004 +0000
@@ -851,9 +851,11 @@
 (make-obsolete 'dot-min 'point-min	"before 19.15")
 (make-obsolete 'dot-marker 'point-marker "before 19.15")
 (make-obsolete 'buffer-flush-undo 'buffer-disable-undo "before 19.15")
-(make-obsolete 'baud-rate "use the baud-rate variable instead." "before 19.15")
+(make-obsolete 'baud-rate "use the `baud-rate' variable instead." "before 19.15")
 (make-obsolete 'compiled-function-p 'byte-code-function-p "before 19.15")
 (make-obsolete 'define-function 'defalias "20.1")
+(make-obsolete 'focus-frame "it does nothing." "19.32")
+(make-obsolete 'unfocus-frame "it does nothing." "19.32")
 
 (defun insert-string (&rest args)
   "Mocklisp-compatibility insert function.
@@ -870,8 +872,8 @@
   "Return the value of the `baud-rate' variable."
   baud-rate)
 
-(defalias 'focus-frame 'ignore)
-(defalias 'unfocus-frame 'ignore)
+(defalias 'focus-frame 'ignore "")
+(defalias 'unfocus-frame 'ignore "")
 
 
 ;;;; Obsolescence declarations for variables.
@@ -1186,7 +1188,7 @@
 ;; compatibility
 
 (make-obsolete 'process-kill-without-query
-               "use `process-query-on-exit-flag'\nor `set-process-query-on-exit-flag'."
+               "use `process-query-on-exit-flag' or `set-process-query-on-exit-flag'."
                "21.5")
 (defun process-kill-without-query (process &optional flag)
   "Say no query needed if PROCESS is running when Emacs is exited.