(completion-ignored-extensions): Added ".sparcf"

for CMUCL on sparc and ".ufsl" for LispWorks.
(bound-and-true-p): Bugfix: free variable `v'.

2 files changed, 9 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 424274a2aee..e377509053f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+1999-10-17  Sam Steingold  <sds@ksp.com>
+
+        * bindings.el (completion-ignored-extensions): Added ".sparcf"
+        for CMUCL on sparc and ".ufsl" for LispWorks.
+        (bound-and-true-p): Bugfix: free variable `v'.
+
 1999-10-16  Dave Love  <d.love@dl.ac.uk>
 
         * emacs-lisp/edebug.el (edebug-install-read-eval-functions)
diff --git a/lisp/bindings.el b/lisp/bindings.el
index e6ed9323db2..380f9a7e69c 100644
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -186,7 +186,7 @@ Return a string to display in the mode line for the current mode name."
 
 (defmacro bound-and-true-p (var)
   "Return the value of symbol VAR if it is bound, else nil."
-  `(and (boundp (quote ,v)) ,var))
+  `(and (boundp (quote ,var)) ,var))
 
 (defvar mode-line-mouse-sensitive-p nil "\
 Non-nil means mode line has been made mouse-sensitive.")
@@ -287,7 +287,7 @@ Menu of mode operations in the mode line.")
                 ".brn" ".rnt" ".mem" ".lni" ".lis"
                 ".olb" ".tlb" ".mlb" ".hlb"))
              (t
-              '(".o" "~" ".bin" ".lbin" ".fasl"
+              '(".o" "~" ".bin" ".lbin" ".fasl" ".ufsl"
                 ".a" ".ln" ".blg" ".bbl")))
        '(".elc" ".lof"
          ".glo" ".idx" ".lot"
@@ -298,7 +298,7 @@ Menu of mode operations in the mode line.")
          ;; Clisp
          ".fas" ".lib"
          ;; CMUCL
-         ".x86f"
+         ".x86f" ".sparcf"
          ;; Texinfo-related
          ".toc" ".log" ".aux"
          ".cp" ".fn" ".ky" ".pg" ".tp" ".vr"