(hack-one-local-variable-eval-safep): Don't burp if used

during bootstrapping.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 355afbbca78b0b0d4ce03478fede540bd6095532..c1221136a54d97f87503b7584c71d2e360b5e2c1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2006-05-29  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * files.el (hack-one-local-variable-eval-safep): Don't burp if used
+       during bootstrapping.
+
        * emacs-lisp/ewoc.el (ewoc--current-dll): Remove.
        Basically undo the change of 2006-05-26: use extra arguments instead of
        dynamic scoping.
@@ -135,8 +138,8 @@
 
 2006-05-26  Reiner Steib  <Reiner.Steib@gmx.de>
 
-       * comint.el (comint-kill-whole-line): Rename arg to count.  Fix
-       doc string.
+       * comint.el (comint-kill-whole-line): Rename arg to count.
+       Fix doc string.
 
 2006-05-26  Chong Yidong  <cyd@stupidchicken.com>
 
@@ -162,11 +165,10 @@
        * textmodes/org.el: (org-next-item, org-previous-item): Emit more
        compact error message.
        (org-tags-view): Refresh category table in each file.
-       (org-table-justify-field-maybe): Removed superfluous arguments to
+       (org-table-justify-field-maybe): Remove superfluous arguments to
        `format'.
        (org-export-as-html): Insert "<p>" before postamble.
-       (org-paste-subtree, org-kill-is-subtree-p): Check for empty kill
-       ring.
+       (org-paste-subtree, org-kill-is-subtree-p): Check for empty kill ring.
 
 2006-05-26  Kenichi Handa  <handa@m17n.org>
 
@@ -174,14 +176,14 @@
        FILENAME is a cons (NAME . BUFFER).
        (po-find-file-coding-system-guts): Likewise.
 
-       * arc-mode.el (archive-set-buffer-as-visiting-file): Call
-       find-operation-coding-system with (FILENAME . BUFFER).
+       * arc-mode.el (archive-set-buffer-as-visiting-file):
+       Call find-operation-coding-system with (FILENAME . BUFFER).
 
        * tar-mode.el (tar-extract): Call find-operation-coding-system
        with (FILENAME . BUFFER).
 
-       * international/mule.el (decode-coding-inserted-region): Call
-       find-operation-coding-system with (FILENAME . BUFFER).
+       * international/mule.el (decode-coding-inserted-region):
+       Call find-operation-coding-system with (FILENAME . BUFFER).
 
 2006-05-25  Chong Yidong  <cyd@stupidchicken.com>
 
@@ -194,18 +196,17 @@
        Remove 8th arg KEEP-ALL in read-from-minibuffer.
 
 2006-05-25  Rajesh Vaidheeswarran <rv@gnu.org>
-       * whitespace.el (whitespace-cleanup): change to cleanup
-       region if one is active
-       * whitespace.el (whitespace-cleanup-internal): new internal
-       method
+
+       * whitespace.el (whitespace-cleanup): Change to cleanup
+       region if one is active.
+       * whitespace.el (whitespace-cleanup-internal): New internal method.
 
 2006-05-25  Mathias Dahl  <mathias.dahl@gmail.com>
 
        * dired.el (dired-mode-map): Add help-echo strings to tumme
        commands.  Bind `tumme-dired-display-image' to C-t i.
 
-       * tumme.el (tumme-display-image): Change documentation string
-       slightly.
+       * tumme.el (tumme-display-image): Change documentation string slightly.
        (tumme-dired-display-image): Add call to `display-buffer'.
 
 2006-05-25  Thien-Thi Nguyen  <ttn@gnu.org>
@@ -285,16 +286,16 @@
 
        * textmodes/org.el: (org-open-at-point): Use renamed variable
        `org-confirm-shell-link-function'.
-       (org-confirm-shell-link-function): Renamed from
+       (org-confirm-shell-link-function): Rename from
        `org-confirm-shell-links'.
        (org-export-directory): New function.
        (org-export-as-ascii, org-export-as-html, org-export-as-xoxo)
        (org-export-icalendar): Use `org-export-directory'.
        (org-indent-item): Keep cursor position.
        (org-link-file-path-type): New option.
-       (org-export-as-html): Fixed bug with plain lists starting in
+       (org-export-as-html): Fix bug with plain lists starting in
        column 0.
-       (org-export-as-html): Removed deadline formatting, this happens
+       (org-export-as-html): Remove deadline formatting, this happens
        now already in `org-html-handle-time-stamps'.
        (org-export-html-style): Deadline class removed.
        (org-insert-labeled-timestamps-at-point): New option.
@@ -307,16 +308,15 @@
        (org-shifttab): Use `org-global-cycle'.
        (org-insert-heading, org-insert-item): Go to end of new
        headline/item after creating it.
-       (org-export-visible): Renames from `org-export-copy-visible'.  Now
-       creates a temporary org-file and applies an exporting command to
-       it.
+       (org-export-visible): Rename from `org-export-copy-visible'.
+       Now creates a temporary org-file and applies an exporting command
+       to it.
        (org-table-eval-formula): Support for lisp forms.
        (org-agenda-todo-ignore-scheduled): New option.
        (org-agenda-get-todos): Use new option
        `org-agenda-todo-ignore-scheduled'.
        (org-export-html-inline-images): New value `maybe'.
-       (org-export-as-html): Inlining of images dependent on link
-       description.
+       (org-export-as-html): Inlining of images dependent on link description.
        (org-archive-subtree): Check for end-of-buffer before trying
        `kill-line'.
        (org-agenda-follow-mode): New option.
@@ -326,8 +326,8 @@
        (org-agenda-get-todos): Use `org-agenda-todo-list-sublevels'.
        (org-agenda-todo-list-sublevels): New option.
        (org-html-level-start): When TITLE is nil, just close all levels.
-       (org-parse-key-lines, org-parse-export-options): Functions
-       removed, replaced by `org-infile-export-plist'.
+       (org-parse-key-lines, org-parse-export-options): Remove functions,
+       replaced by `org-infile-export-plist'.
        (org-combine-plists, org-infile-export-plist)
        (org-default-export-plist): New functions.
        (org-export-html-preamble, org-export-html-postamble)
@@ -336,12 +336,12 @@
        (org-export-publishing-directory): New option.
        (org-export-as-html, org-export-as-ascii): Use the new property
        lists for settings.
-       (org-export-copy-visible, org-export-as-xoxo): Respect
-       `org-export-publishing-directory'.
+       (org-export-copy-visible, org-export-as-xoxo):
+       Respect `org-export-publishing-directory'.
        (org-link-search, org-store-link, org-file-apps): Support for
        links to BibTeX database entries..
-       (org-get-current-options, org-set-regexps-and-options): Implement
-       logging as a startup option.
+       (org-get-current-options, org-set-regexps-and-options):
+       Implement logging as a startup option.
        (org-store-link): Make sure context string is never empty
        (org-insert-link): Use relative path when possible.
        (org-at-item-checklet-p): New function.
@@ -356,10 +356,9 @@
        (org-complete): Use `org-tag-alist'.
        (org-fast-tag-insert, org-fast-tag-selection): New functions.
        (org-next-item, org-previous-item): New commands.
-       (org-beginning-of-item, org-end-of-item): Added (interactive) to
+       (org-beginning-of-item, org-end-of-item): Add (interactive) to
        make command.
-       (org-shiftup, org-shiftdown): Accommodate the item-navigation
-       commands.
+       (org-shiftup, org-shiftdown): Accommodate the item-navigation commands.
 
 
 2006-05-23  Thien-Thi Nguyen  <ttn@gnu.org>

diff --git a/lisp/files.el b/lisp/files.el
index 8ecd57a4d24dadf42bc3de89f0f9d849ad3b8382..9f15e35e987bc92c618ed803872e8b5d826be9b0 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2689,7 +2689,10 @@ It is dangerous if either of these conditions are met:
                    (or (numberp val) (equal val ''defun)))
                   ((eq prop 'edebug-form-spec)
                    ;; Only allow indirect form specs.
-                   (edebug-basic-spec val)))))
+                   ;; During bootstrapping, edebug-basic-spec might not be
+                   ;; defined yet.
+                    (and (fboundp 'edebug-basic-spec)
+                         (edebug-basic-spec val))))))
       ;; Allow expressions that the user requested.
       (member exp safe-local-eval-forms)
       ;; Certain functions can be allowed with safe arguments