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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e7eab37b4efbc3b827c8ca811d4dca4d7b5a95b7..f7114e4272e5464f2e31f575ae35059470f9a070 100644 (file)
--- 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 4ebbc54969712f8bf71e760ec520457a4911b610..8d3ee554026462046206a6eba30521458857830f 100644 (file)
--- 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: