(sort-fold-case, sort-numeric-base): Mark as safe-local-variable.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bce24e6d6258c6a952f6c5969cbe573d2e5a2d0e..cc34f6a5ac9360bf4ea755910e50458f3ec0241d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-08-25  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * sort.el (sort-fold-case, sort-numeric-base): Mark as
+       safe-local-variable.
+
 2007-08-25  Jay Belanger  <jay.p.belanger@gmail.com>
 
        * calc/calc-forms.el (var-TimeZone): Make nil explicitly

diff --git a/lisp/sort.el b/lisp/sort.el
index eb8de8243fcede9ea71139bb8dd4841eaf0bf211..582bb6d8e0999fa5911906cb7ae545c326b9944f 100644 (file)
--- a/lisp/sort.el
+++ b/lisp/sort.el
@@ -39,6 +39,7 @@
   "*Non-nil if the buffer sort functions should ignore case."
   :group 'sort
   :type 'boolean)
+;;;###autoload(put 'sort-fold-case 'safe-local-variable 'booleanp)
 
 ;;;###autoload
 (defun sort-subr (reverse nextrecfun endrecfun
@@ -258,6 +259,7 @@ the sort order."
   "*The default base used by `sort-numeric-fields'."
   :group 'sort
   :type 'integer)
+;;;###autoload(put 'sort-numeric-base 'safe-local-variable 'integerp)
 
 ;;;###autoload
 (defun sort-numeric-fields (field beg end)