[Emacs-diffs] /srv/bzr/emacs/trunk r112556: * cus-dep.el (custom-make-dependencies): Only use safe local variables.

[Glenn Morris]

------------------------------------------------------------
revno: 112556
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sat 2013-05-11 16:54:14 -0700
message:
  * cus-dep.el (custom-make-dependencies): Only use safe local variables.
  Treat cc-provide like provide.
modified:
  lisp/ChangeLog
  lisp/cus-dep.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-05-11 23:52:27 +0000
+++ b/lisp/ChangeLog    2013-05-11 23:54:14 +0000
@@ -1,3 +1,8 @@
+2013-05-11  Glenn Morris  <address@hidden>
+
+       * cus-dep.el (custom-make-dependencies): Only use safe local variables.
+       Treat cc-provide like provide.
+
 2013-05-11  Kevin Ryde  <address@hidden>
 
        * cus-dep.el (custom-make-dependencies):

=== modified file 'lisp/cus-dep.el'
--- a/lisp/cus-dep.el   2013-05-11 23:52:27 +0000
+++ b/lisp/cus-dep.el   2013-05-11 23:54:14 +0000
@@ -42,6 +42,7 @@
   "Batch function to extract custom dependencies from .el files.
 Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS"
   (let ((enable-local-eval nil)
+       (enable-local-variables :safe)
        subdir)
     (with-temp-buffer
       ;; Use up command-line-args-left else Emacs can try to open
@@ -70,7 +71,7 @@
                     (load-file-name file))
                 (if (save-excursion
                       (re-search-forward
-                    (concat "(provide[ \t\n]+\\('\\|(quote[ \t\n]\\)[ \t\n]*"
+                    (concat "(\\(cc-\\)?provide[ \t\n]+\\('\\|(quote[ 
\t\n]\\)[ \t\n]*"
                             (regexp-quote name) "[ \t\n)]")
                     nil t))
                     (setq name (intern name)))