# HG changeset patch
# User John Paul Wallington <jpw@pobox.com>
# Date 1072838702 0
# Node ID 160b4f3af3037dd67a0a5ddfed36e089c3266b19
# Parent  c8eb797b2bb9f3e86a88dd4aefe6e4ea6421424d
(completion-ignored-extensions): Add .pfsl.

diff -r c8eb797b2bb9 -r 160b4f3af303 lisp/bindings.el
--- a/lisp/bindings.el	Wed Dec 31 00:32:19 2003 +0000
+++ b/lisp/bindings.el	Wed Dec 31 02:45:02 2003 +0000
@@ -258,14 +258,14 @@
 (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 @@
 
   (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 @@
 	 ".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