From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 22 May 2004 21:50:03 +0000 (+0000)
Subject: (idlwave-shell-get-object-class): Use assoc-string, not assoc-ignore-case.
X-Git-Tag: ttn-vms-21-2-B4~6105
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fe93c80378e9b44b4853374e1450b526a1f1e33e;p=emacs.git

(idlwave-shell-get-object-class): Use assoc-string, not assoc-ignore-case.
---

diff --git a/lisp/progmodes/idlw-shell.el b/lisp/progmodes/idlw-shell.el
index a600939ef71..ae0c43c2730 100644
--- a/lisp/progmodes/idlw-shell.el
+++ b/lisp/progmodes/idlw-shell.el
@@ -1823,8 +1823,8 @@ Change the default directory for the process buffer to concur."
        'hide 'wait)
       ;; If we don't know anything about the class, update shell routines
       (if (and idlwave-shell-get-object-class
-	       (not (assoc-ignore-case idlwave-shell-get-object-class
-				       (idlwave-class-alist))))
+	       (not (assoc-string idlwave-shell-get-object-class
+				  (idlwave-class-alist) t)))
 	  (idlwave-shell-maybe-update-routine-info))
       idlwave-shell-get-object-class)))