From b2236c89a8669f65ac8419908a4282adfad4470a Mon Sep 17 00:00:00 2001 From: John Paul Wallington Date: Wed, 31 Dec 2003 02:46:07 +0000 Subject: [PATCH] (completion-ignored-extensions): Add .pfsl. --- lisp/ChangeLog | 4 ++++ lisp/bindings.el | 10 +++++----- 2 files changed, 9 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1aee3a1b748..ed4f3a8433e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2003-12-31 John Paul Wallington + + * bindings.el (completion-ignored-extensions): Add .pfsl. + 2003-12-31 Kim F. Storm * ido.el (ido-nonreadable-directory-p): New defun to check for diff --git a/lisp/bindings.el b/lisp/bindings.el index ab5bb30699e..ed4da745b2d 100644 --- 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 -- 2.39.2