diff options
| author | Dave Love | 2000-10-25 13:41:19 +0000 |
|---|---|---|
| committer | Dave Love | 2000-10-25 13:41:19 +0000 |
| commit | 072cb6f926fdf8a5b756a5725a5742995e2fc6b0 (patch) | |
| tree | 63084246a26a2330962a05c616c999ea259b6822 | |
| parent | d5789b65af2b248c62a703aa9af87aa4f7350823 (diff) | |
| download | emacs-072cb6f926fdf8a5b756a5725a5742995e2fc6b0.tar.gz emacs-072cb6f926fdf8a5b756a5725a5742995e2fc6b0.zip | |
(cperl-mode): Set
normal-auto-fill-function correctly.
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/progmodes/cperl-mode.el | 2 |
2 files changed, 4 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 870fa2bc33a..7060060c815 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -18,6 +18,9 @@ | |||
| 18 | 18 | ||
| 19 | 2000-10-25 Dave Love <fx@gnu.org> | 19 | 2000-10-25 Dave Love <fx@gnu.org> |
| 20 | 20 | ||
| 21 | * progmodes/cperl-mode.el (cperl-mode): Set | ||
| 22 | normal-auto-fill-function correctly. | ||
| 23 | |||
| 21 | * wid-edit.el (widget-field-keymap, widget-text-keymap): Don't | 24 | * wid-edit.el (widget-field-keymap, widget-text-keymap): Don't |
| 22 | inherit from global-map and don't nullify menu-bar and tool-bar | 25 | inherit from global-map and don't nullify menu-bar and tool-bar |
| 23 | bindings since keymap properties DTRT. | 26 | bindings since keymap properties DTRT. |
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index 64b6574d0d2..9c88cdde6c1 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el | |||
| @@ -1510,7 +1510,7 @@ or as help on variables `cperl-tips', `cperl-problems', | |||
| 1510 | '(t))))) | 1510 | '(t))))) |
| 1511 | (make-local-variable 'cperl-old-style) | 1511 | (make-local-variable 'cperl-old-style) |
| 1512 | (set (make-local-variable 'normal-auto-fill-function) | 1512 | (set (make-local-variable 'normal-auto-fill-function) |
| 1513 | #'cperl-old-auto-fill-mode) | 1513 | #'cperl-do-auto-fill) |
| 1514 | (if (cperl-enable-font-lock) | 1514 | (if (cperl-enable-font-lock) |
| 1515 | (if (cperl-val 'cperl-font-lock) | 1515 | (if (cperl-val 'cperl-font-lock) |
| 1516 | (progn (or cperl-faces-init (cperl-init-faces)) | 1516 | (progn (or cperl-faces-init (cperl-init-faces)) |