# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 940157132 0
# Node ID b6e77fbb182b272e26134d2fd23f1c44806b4bee
# Parent  707b9ae3f7789dd86a8c3fff753c6616057d9aaf
(completion-ignored-extensions): Added ".sparcf"
for CMUCL on sparc and ".ufsl" for LispWorks.
(bound-and-true-p): Bugfix: free variable `v'.

diff -r 707b9ae3f778 -r b6e77fbb182b lisp/bindings.el
--- a/lisp/bindings.el	Sun Oct 17 09:55:57 1999 +0000
+++ b/lisp/bindings.el	Sun Oct 17 10:45:32 1999 +0000
@@ -186,7 +186,7 @@
 
 (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 @@
 		".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 @@
 	 ;; Clisp
 	 ".fas" ".lib"
 	 ;; CMUCL
-	 ".x86f"
+	 ".x86f" ".sparcf"
 	 ;; Texinfo-related
 	 ".toc" ".log" ".aux"
 	 ".cp" ".fn" ".ky" ".pg" ".tp" ".vr"