From ff69e0120fd6492df31777b820a3f6077efe848b Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Sun, 17 Oct 1999 10:48:08 +0000 Subject: [PATCH] (completion-ignored-extensions): Added ".sparcf" for CMUCL on sparc and ".ufsl" for LispWorks. (bound-and-true-p): Bugfix: free variable `v'. --- lisp/ChangeLog | 6 ++++++ lisp/bindings.el | 6 +++--- 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 + + * 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 * 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"