Replace `set-window-dot' by `set-window-point'.

2 files changed, 29 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e7eab37b4ef..f7114e4272e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -4,6 +4,34 @@
 
 2005-05-18  Juanma Barranquero  <lekktu@gmail.com>
 
+        * add-log.el (add-change-log-entry):
+        * array.el (array-make-template, array-reconfigure-rows)
+        (array-init-max-row, array-init-max-column)
+        (array-init-columns-per-line, array-init-field-width):
+        * replace.el (replace-match-maybe-edit, perform-replace):
+        * textmodes/spell.el (spell-region):
+        Replace `read-input' by `read-string'.
+
+        * forms.el (forms-mode):
+        * finder.el (finder-compile-keywords):
+        * shadowfile.el (shadow-read-files):
+        Replace `eval-current-buffer' by `eval-buffer'.
+
+        * terminal.el (te-pass-through):
+        * net/ange-ftp.el (ange-ftp-process-filter, ange-ftp-gwp-filter)
+        (ange-ftp-raw-send-cmd):
+        * net/telnet.el (telnet-interrupt-subjob, telnet-c-z)
+        (send-process-next-char, telnet-initial-filter, telnet):
+        Replace `send-string' by `process-send-string'.
+
+        * progmodes/prolog.el (inferior-prolog-mode): Doc fix.
+        (prolog-consult-region): Replace `send-string' by
+        `process-send-string'; replace `send-region' by
+        `process-send-region'.
+
+        * progmodes/delphi.el (delphi-log-msg):
+        Replace `set-window-dot' by `set-window-point'.
+
         * subr.el (window-dot, set-window-dot, read-input, send-string)
         (send-region, show-buffer, eval-current-buffer):
         Make really obsolete, as the comment says.
diff --git a/lisp/progmodes/delphi.el b/lisp/progmodes/delphi.el
index 4ebbc549697..8d3ee554026 100644
--- a/lisp/progmodes/delphi.el
+++ b/lisp/progmodes/delphi.el
@@ -1530,7 +1530,7 @@ before the indent, the point is moved to the indent."
     (save-selected-window
       (switch-to-buffer-other-window to-buffer)
       (goto-char (point-max))
-      (set-window-dot (get-buffer-window to-buffer) (point))
+      (set-window-point (get-buffer-window to-buffer) (point))
       (insert the-msg))))
 
 ;; Debugging helpers: