Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-43

[gnu-emacs] / lisp / bindings.el

diff --git a/lisp/bindings.el b/lisp/bindings.el
index 84db9bbe1eb41bdd208a53ac4d1da5b53e28bb83..ea311c191f6d1ee60077af7ff9bb9cc918cae7f2 100644 (file)
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -517,7 +517,7 @@ is okay.  See `mode-line-format'.")
         ;; CMUCL
         ".x86f" ".sparcf"
          ;; Other CL implementations (Allegro, LispWorks, OpenMCL)
-         ".fasl" ".ufsl" ".fsl" ".dxl" ".pfsl"
+         ".fasl" ".ufsl" ".fsl" ".dxl" ".pfsl" ".dfsl"
         ;; Libtool
         ".lo" ".la"
         ;; Gettext
@@ -720,6 +720,7 @@ language you are using."
 (define-key global-map [C-up]          'backward-paragraph)
 (define-key global-map [C-down]                'forward-paragraph)
 (define-key global-map [C-prior]       'scroll-right)
+(put 'scroll-left 'disabled t)
 (define-key global-map [C-next]                'scroll-left)
 (define-key global-map [M-next]                'scroll-other-window)
 (define-key global-map [M-prior]       'scroll-other-window-down)