(completion-ignored-extensions): CL-related

 extensions are platform-independent.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 60b666358cf1d271d39e7c54f4e8a786b7f50fa2..d79655d944021c1b832c3ceab24b9bf525cb2786 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2001-10-12  Sam Steingold  <sds@gnu.org>
 
+       * bindings.el (completion-ignored-extensions): CL-related
+       extensions are platform-independent.
+
        * net/ange-ftp.el (ange-ftp-copy-files-async): New function for
        asynchronous multiple file copying.
 

diff --git a/lisp/bindings.el b/lisp/bindings.el
index f412f85dee866df058f1c48f7036b4f7cdb66297..04606badb24501a99291c3d95ea2f47d90a26188 100644 (file)
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -148,7 +148,7 @@ corresponding to the mode line clicked."
                     'local-map mode-line-input-method-map))))
     ,(propertize
       "%Z"
-      'help-echo 
+      'help-echo
       (purecopy (lambda (window object point)
                  (save-window-excursion
                    (select-window window)
@@ -239,7 +239,7 @@ Normally nil in most modes, since there is no process to display.")
      (propertize "   %[(" 'help-echo help-echo)
      '(:eval (mode-line-mode-name)) 'mode-line-process 'minor-mode-alist
      (propertize "%n" 'help-echo "mouse-2: widen"
-                'local-map (make-mode-line-mouse-map 
+                'local-map (make-mode-line-mouse-map
                             'mouse-2 #'mode-line-widen))
      (propertize ")%]--" 'help-echo help-echo)
      `(which-func-mode ("" which-func-format ,dashes))
@@ -377,10 +377,10 @@ FMT is a format specifier such as \"%12b\".  This function adds
 text properties for face, help-echo, and local-map to it."
   (list (propertize fmt
                    'face '(:weight bold)
-                   'help-echo 
+                   'help-echo
                    (purecopy "mouse-1: previous buffer, mouse-3: next buffer")
                    'local-map mode-line-buffer-identification-keymap)))
-  
+
 (setq-default mode-line-buffer-identification
              (propertized-buffer-identification "%12b"))
 
@@ -426,10 +426,10 @@ is okay.  See `mode-line-format'.")
                ".a" ".ln" ".blg" ".bbl"))
             ((eq system-type 'vax-vms)
              '(".obj" ".exe" ".bin" ".lbin" ".sbin"
-               ".brn" ".rnt" ".mem" ".lni" ".lis"
+               ".brn" ".rnt" ".lni" ".lis"
                ".olb" ".tlb" ".mlb" ".hlb"))
             (t
-             '(".o" "~" ".bin" ".lbin" ".fasl" ".ufsl"
+             '(".o" "~" ".bin" ".lbin"
                ".a" ".ln" ".blg" ".bbl")))
        '(".elc" ".lof"
         ".glo" ".idx" ".lot"
@@ -437,10 +437,12 @@ is okay.  See `mode-line-format'.")
         ".dvi" ".fmt" ".tfm" ".pdf"
         ;; Java compiled
         ".class"
-        ;; Clisp
-        ".fas" ".lib"
+        ;; CLISP
+        ".fas" ".lib" ".mem"
         ;; CMUCL
         ".x86f" ".sparcf"
+         ;; Other CL implementations (Allegro, LispWorks)
+         ".fasl" ".ufsl" ".fsl" ".dxl"
         ;; Libtool
         ".lo" ".la"
         ;; Texinfo-related
@@ -465,7 +467,7 @@ is okay.  See `mode-line-format'.")
        "^Save not confirmed$"
        "^Recover-file cancelled\\.$"
        "^Cannot switch buffers in a dedicated window$"
-       
+
        ;; ediff
        "^Errors in diff output. Diff output is in "
        "^Hmm... I don't see an Ediff command around here...$"