(completion-ignored-extensions): Add .pfsl.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1aee3a1b7488c27f3d08da2a48bfccaa1fb046aa..ed4f3a8433e1a444c6f8a142ddcd3b0bd768e53e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-12-31  John Paul Wallington  <jpw@gnu.org>
+
+       * bindings.el (completion-ignored-extensions): Add .pfsl.
+
 2003-12-31  Kim F. Storm  <storm@cua.dk>
 
        * ido.el (ido-nonreadable-directory-p): New defun to check for

diff --git a/lisp/bindings.el b/lisp/bindings.el
index ab5bb30699e2fa4bde668c3332f5870a8e56d4e0..ed4da745b2da48b8ea27c3b045eb895a325f0638 100644 (file)
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -258,14 +258,14 @@ buffer size, the line number and the column number.")
 (defvar mode-line-modes nil
   "Mode-line control for displaying major and minor modes.")
 
-(defvar mode-line-major-mode-keymap 
+(defvar mode-line-major-mode-keymap
   (let ((map (make-sparse-keymap)))
     (define-key map [mode-line mouse-2] 'describe-mode)
     (define-key map [mode-line down-mouse-3] 'mode-line-mode-menu-1)
     map) "\
 Keymap to display on major mode.")
 
-(defvar mode-line-minor-mode-keymap 
+(defvar mode-line-minor-mode-keymap
   (let ((map (make-sparse-keymap)))
     (define-key map [mode-line mouse-2] 'mode-line-minor-mode-help)
     (define-key map [mode-line down-mouse-3] 'mode-line-mode-menu-1)
@@ -314,7 +314,7 @@ Keymap to display on minor modes.")
 
   (setq-default mode-line-position
     `((-3 ,(propertize "%p" 'help-echo help-echo))
-      (size-indication-mode 
+      (size-indication-mode
        (8 ,(propertize " of %I" 'help-echo help-echo)))
       (line-number-mode
        ((column-number-mode
@@ -511,8 +511,8 @@ is okay.  See `mode-line-format'.")
         ".fas" ".lib" ".mem"
         ;; CMUCL
         ".x86f" ".sparcf"
-         ;; Other CL implementations (Allegro, LispWorks)
-         ".fasl" ".ufsl" ".fsl" ".dxl"
+         ;; Other CL implementations (Allegro, LispWorks, OpenMCL)
+         ".fasl" ".ufsl" ".fsl" ".dxl" ".pfsl"
         ;; Libtool
         ".lo" ".la"
         ;; Gettext