Add the "use strict;" and "use warnings;" pragmas.

* admin/make-emacs:
* admin/build-configs: Add the "use strict;" and "use warnings;" pragmas.

diff --git a/admin/ChangeLog b/admin/ChangeLog
index 16365c9761be5db0c8aae243c4aee5bd48dab5dd..877c813513ca631615b1449cfd0b90f883d39bd6 100644 (file)
--- a/admin/ChangeLog
+++ b/admin/ChangeLog
@@ -1,3 +1,8 @@
+2013-12-29  Xue Fuqiao  <xfq.free@gmail.com>
+
+       * make-emacs:
+       * build-configs: Add the "use strict;" and "use warnings;" pragmas.
+
 2013-12-28  Glenn Morris  <rgm@gnu.org>
 
        * admin.el (cusver-scan): Warn about missing :types.

diff --git a/admin/admin.el b/admin/admin.el
index 13d1126a8d1f79297df707e703e14e681f87f6e5..571bd8241436c7aae64a3a1fe3c87a95573f6c89 100644 (file)
--- a/admin/admin.el
+++ b/admin/admin.el
@@ -69,6 +69,7 @@ Optional argument DATE is the release date, default today."
     (user-error "Version not found in %s" file))
   (replace-match (format "%s" version) nil nil nil 1))
 
+;; TODO report the progress
 (defun set-version (root version)
   "Set Emacs version to VERSION in relevant files under ROOT.
 Root must be the root of an Emacs source tree."
@@ -161,6 +162,7 @@ Root must be the root of an Emacs source tree."
 
 
 ;; Note this makes some assumptions about form of short copyright.
+;; TODO report the progress
 (defun set-copyright (root copyright)
   "Set Emacs short copyright to COPYRIGHT in relevant files under ROOT.
 Root must be the root of an Emacs source tree."

diff --git a/admin/build-configs b/admin/build-configs
index 8b738befb1834b83ebc1640cdaec6dbe5f1ed18e..ac0d219fac970061192f7fc77fbb1d4b2129021c 100755 (executable)
--- a/admin/build-configs
+++ b/admin/build-configs
@@ -20,6 +20,8 @@
 
 
 require 5;
+use strict;
+use warnings;
 use Getopt::Long;
 use File::Basename;
 use Cwd;

diff --git a/admin/make-emacs b/admin/make-emacs
index 58295c9607a4e149547041f0fae99a305e49b446..2bc62f8cbff0a7717081f59cb6de9498a53dd950 100755 (executable)
--- a/admin/make-emacs
+++ b/admin/make-emacs
@@ -21,6 +21,8 @@
 
 
 require 5;
+use strict;
+use warnings;
 use Getopt::Long;
 use File::Basename;
 use Cwd;