diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/sort.el | 2 |
2 files changed, 7 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index bce24e6d625..cc34f6a5ac9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2007-08-25 Reiner Steib <Reiner.Steib@gmx.de> | ||
| 2 | |||
| 3 | * sort.el (sort-fold-case, sort-numeric-base): Mark as | ||
| 4 | safe-local-variable. | ||
| 5 | |||
| 1 | 2007-08-25 Jay Belanger <jay.p.belanger@gmail.com> | 6 | 2007-08-25 Jay Belanger <jay.p.belanger@gmail.com> |
| 2 | 7 | ||
| 3 | * calc/calc-forms.el (var-TimeZone): Make nil explicitly | 8 | * calc/calc-forms.el (var-TimeZone): Make nil explicitly |
diff --git a/lisp/sort.el b/lisp/sort.el index eb8de8243fc..582bb6d8e09 100644 --- a/lisp/sort.el +++ b/lisp/sort.el | |||
| @@ -39,6 +39,7 @@ | |||
| 39 | "*Non-nil if the buffer sort functions should ignore case." | 39 | "*Non-nil if the buffer sort functions should ignore case." |
| 40 | :group 'sort | 40 | :group 'sort |
| 41 | :type 'boolean) | 41 | :type 'boolean) |
| 42 | ;;;###autoload(put 'sort-fold-case 'safe-local-variable 'booleanp) | ||
| 42 | 43 | ||
| 43 | ;;;###autoload | 44 | ;;;###autoload |
| 44 | (defun sort-subr (reverse nextrecfun endrecfun | 45 | (defun sort-subr (reverse nextrecfun endrecfun |
| @@ -258,6 +259,7 @@ the sort order." | |||
| 258 | "*The default base used by `sort-numeric-fields'." | 259 | "*The default base used by `sort-numeric-fields'." |
| 259 | :group 'sort | 260 | :group 'sort |
| 260 | :type 'integer) | 261 | :type 'integer) |
| 262 | ;;;###autoload(put 'sort-numeric-base 'safe-local-variable 'integerp) | ||
| 261 | 263 | ||
| 262 | ;;;###autoload | 264 | ;;;###autoload |
| 263 | (defun sort-numeric-fields (field beg end) | 265 | (defun sort-numeric-fields (field beg end) |