From 1902b5b60b3d112673c411e474ce983a29133b63 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 18 May 2005 10:20:51 +0000 Subject: [PATCH] Replace `set-window-dot' by `set-window-point'. --- lisp/ChangeLog | 28 ++++++++++++++++++++++++++++ lisp/progmodes/delphi.el | 2 +- 2 files changed, 29 insertions(+), 1 deletion(-) 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 + * 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: -- 2.39.2