diff options
| author | Dan Nicolaescu | 2007-08-25 21:29:48 +0000 |
|---|---|---|
| committer | Dan Nicolaescu | 2007-08-25 21:29:48 +0000 |
| commit | f152a8982d18caf558a53019134ba899ecb73c4f (patch) | |
| tree | ef286ac44601b2bcce83459d7327901c063e5736 | |
| parent | 8837a213a2a7212fb99a31d49ff8da131bc69be1 (diff) | |
| download | emacs-f152a8982d18caf558a53019134ba899ecb73c4f.tar.gz emacs-f152a8982d18caf558a53019134ba899ecb73c4f.zip | |
* progmodes/cperl-mode.el (cperl-indent-level): Autoload the
safe-local-variable setting.
* progmodes/perl-mode.el (perl-indent-level): Likewise.
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/progmodes/cperl-mode.el | 8 | ||||
| -rw-r--r-- | lisp/progmodes/perl-mode.el | 9 |
3 files changed, 21 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 69b5c69533e..6fddb589cf7 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,9 @@ | |||
| 1 | 2007-08-25 Dan Nicolaescu <dann@ics.uci.edu> | ||
| 2 | |||
| 3 | * progmodes/cperl-mode.el (cperl-indent-level): Autoload the | ||
| 4 | safe-local-variable setting. | ||
| 5 | * progmodes/perl-mode.el (perl-indent-level): Likewise. | ||
| 6 | |||
| 1 | 2007-08-25 Stefan Monnier <monnier@iro.umontreal.ca> | 7 | 2007-08-25 Stefan Monnier <monnier@iro.umontreal.ca> |
| 2 | 8 | ||
| 3 | * uniquify.el (uniquify-rationalize-file-buffer-names): Check liveness | 9 | * uniquify.el (uniquify-rationalize-file-buffer-names): Check liveness |
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index 7995c9e02e3..cdfb8870138 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el | |||
| @@ -233,7 +233,13 @@ for constructs with multiline if/unless/while/until/for/foreach condition." | |||
| 233 | "*Indentation of CPerl statements with respect to containing block." | 233 | "*Indentation of CPerl statements with respect to containing block." |
| 234 | :type 'integer | 234 | :type 'integer |
| 235 | :group 'cperl-indentation-details) | 235 | :group 'cperl-indentation-details) |
| 236 | (put 'cperl-indent-level 'safe-local-variable 'integerp) | 236 | |
| 237 | ;; Is is not unusual to put both perl-indent-level and | ||
| 238 | ;; cperl-indent-level in the local variable section of a file. If only | ||
| 239 | ;; one of perl-mode and cperl-mode is in use, a warning will be issued | ||
| 240 | ;; about the variable. Autoload this here, so that no warning is | ||
| 241 | ;; issued when using either perl-mode or cperl-mode. | ||
| 242 | ;;;###autoload(put 'cperl-indent-level 'safe-local-variable 'integerp) | ||
| 237 | 243 | ||
| 238 | (defcustom cperl-lineup-step nil | 244 | (defcustom cperl-lineup-step nil |
| 239 | "*`cperl-lineup' will always lineup at multiple of this number. | 245 | "*`cperl-lineup' will always lineup at multiple of this number. |
diff --git a/lisp/progmodes/perl-mode.el b/lisp/progmodes/perl-mode.el index f2feff595bb..809ed7a9f36 100644 --- a/lisp/progmodes/perl-mode.el +++ b/lisp/progmodes/perl-mode.el | |||
| @@ -399,7 +399,14 @@ The expansion is entirely correct because it uses the C preprocessor." | |||
| 399 | "*Indentation of Perl statements with respect to containing block." | 399 | "*Indentation of Perl statements with respect to containing block." |
| 400 | :type 'integer | 400 | :type 'integer |
| 401 | :group 'perl) | 401 | :group 'perl) |
| 402 | (put 'perl-indent-level 'safe-local-variable 'integerp) | 402 | |
| 403 | ;; Is is not unusual to put both perl-indent-level and | ||
| 404 | ;; cperl-indent-level in the local variable section of a file. If only | ||
| 405 | ;; one of perl-mode and cperl-mode is in use, a warning will be issued | ||
| 406 | ;; about the variable. Autoload this here, so that no warning is | ||
| 407 | ;; issued when using either perl-mode or cperl-mode. | ||
| 408 | ;;;###autoload(put 'perl-indent-level 'safe-local-variable 'integerp) | ||
| 409 | |||
| 403 | (defcustom perl-continued-statement-offset 4 | 410 | (defcustom perl-continued-statement-offset 4 |
| 404 | "*Extra indent for lines not starting new statements." | 411 | "*Extra indent for lines not starting new statements." |
| 405 | :type 'integer | 412 | :type 'integer |