mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
* admin/make-emacs:
* admin/build-configs: Add the "use strict;" and "use warnings;" pragmas.
This commit is contained in:
Xue Fuqiao 2013-12-29 13:18:15 +08:00
parent 411bf4a486
commit 3f9e3ef3fe
4 changed files with 11 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
admin/ChangeLog
View file

@ -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> 2013-12-28 Glenn Morris <rgm@gnu.org>
* admin.el (cusver-scan): Warn about missing :types. * admin.el (cusver-scan): Warn about missing :types.

2
admin/admin.el
View file

@ -69,6 +69,7 @@ Optional argument DATE is the release date, default today."
(user-error "Version not found in %s" file)) (user-error "Version not found in %s" file))
(replace-match (format "%s" version) nil nil nil 1)) (replace-match (format "%s" version) nil nil nil 1))
;; TODO report the progress
(defun set-version (root version) (defun set-version (root version)
"Set Emacs version to VERSION in relevant files under ROOT. "Set Emacs version to VERSION in relevant files under ROOT.
Root must be the root of an Emacs source tree." 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. ;; Note this makes some assumptions about form of short copyright.
;; TODO report the progress
(defun set-copyright (root copyright) (defun set-copyright (root copyright)
"Set Emacs short copyright to COPYRIGHT in relevant files under ROOT. "Set Emacs short copyright to COPYRIGHT in relevant files under ROOT.
Root must be the root of an Emacs source tree." Root must be the root of an Emacs source tree."

2
admin/build-configs
View file

@ -20,6 +20,8 @@
require 5; require 5;
use strict;
use warnings;
use Getopt::Long; use Getopt::Long;
use File::Basename; use File::Basename;
use Cwd; use Cwd;

2
admin/make-emacs
View file

@ -21,6 +21,8 @@
require 5; require 5;
use strict;
use warnings;
use Getopt::Long; use Getopt::Long;
use File::Basename; use File::Basename;
use Cwd; use Cwd;