[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master a9086ef: Replace last uses of idlwave-get-buffer-visiting

From: Basil L. Contovounesios
Subject: master a9086ef: Replace last uses of idlwave-get-buffer-visiting
Date: Tue, 18 Aug 2020 16:49:04 -0400 (EDT)

branch: master
commit a9086efcf1c5b26e9f5f63f39fda10709cc8555f
Author: Basil L. Contovounesios <contovob@tcd.ie>
Commit: Basil L. Contovounesios <contovob@tcd.ie>

    Replace last uses of idlwave-get-buffer-visiting
    * lisp/progmodes/idlw-help.el (idlwave-help-with-source):
    * lisp/progmodes/idlw-shell.el (idlwave-shell-set-bp-in-module)
    (idlwave-shell-delete-temp-files, idlwave-shell-save-and-action):
    Replace last occurrences of deprecated idlwave-get-buffer-visiting
    with now-equivalent find-buffer-visiting.
 lisp/progmodes/idlw-help.el  | 3 +--
 lisp/progmodes/idlw-shell.el | 7 +++----
 2 files changed, 4 insertions(+), 6 deletions(-)

diff --git a/lisp/progmodes/idlw-help.el b/lisp/progmodes/idlw-help.el
index d3a2308..ec4fd58 100644
--- a/lisp/progmodes/idlw-help.el
+++ b/lisp/progmodes/idlw-help.el
@@ -267,7 +267,6 @@ support."
 (declare-function idlwave-find-class-definition "idlwave")
 (declare-function idlwave-find-inherited-class "idlwave")
 (declare-function idlwave-find-struct-tag "idlwave")
-(declare-function idlwave-get-buffer-visiting "idlwave")
 (declare-function idlwave-in-quote "idlwave")
 (declare-function idlwave-make-full-name "idlwave")
 (declare-function idlwave-members-only "idlwave")
@@ -880,7 +879,7 @@ This function can be used as `idlwave-extra-help-function'."
          (setq in-buf ; structure-tag completion is always in current buffer
                (if struct-tag
-                 (idlwave-get-buffer-visiting file)))
+                  (find-buffer-visiting file)))
          ;; see if file is in a visited buffer, insert those contents
          (if in-buf
diff --git a/lisp/progmodes/idlw-shell.el b/lisp/progmodes/idlw-shell.el
index f875915..99ac087 100644
--- a/lisp/progmodes/idlw-shell.el
+++ b/lisp/progmodes/idlw-shell.el
@@ -2640,7 +2640,7 @@ Assumes that `idlwave-shell-sources-alist' contains an 
entry for that module."
     (if (or (not source-file)
            (not (file-regular-p source-file))
            (not (setq buf
-                      (or (idlwave-get-buffer-visiting source-file)
+                       (or (find-buffer-visiting source-file)
                           (find-file-noselect source-file)))))
          (message "The source file for module %s is probably not compiled"
@@ -3241,8 +3241,7 @@ Does not work for a region with multiline blocks - use
   "Delete the temporary files and kill associated buffers."
   (if (stringp idlwave-shell-temp-pro-file)
       (condition-case nil
-         (let ((buf (idlwave-get-buffer-visiting
-                     idlwave-shell-temp-pro-file)))
+          (let ((buf (find-buffer-visiting idlwave-shell-temp-pro-file)))
            (if (buffer-live-p buf)
                (kill-buffer buf))
            (delete-file idlwave-shell-temp-pro-file))
@@ -3788,7 +3787,7 @@ handled by this command."
       (setq idlwave-shell-last-save-and-action-file (buffer-file-name)))
-      (if (setq buf (idlwave-get-buffer-visiting
+      (if (setq buf (find-buffer-visiting
          (with-current-buffer buf

reply via email to

[Prev in Thread] Current Thread [Next in Thread]