diff options
| author | Andreas Schwab | 2004-02-08 22:38:03 +0000 |
|---|---|---|
| committer | Andreas Schwab | 2004-02-08 22:38:03 +0000 |
| commit | d71eb4d4f260f1cef4d4baef4a97cd80b1bfda4b (patch) | |
| tree | 32d58c0424b073c50cba70cd07d0284c5a9fdf6b | |
| parent | 6d255ee3ccca4ea24544a1f0c643c9e4083edf57 (diff) | |
| download | emacs-d71eb4d4f260f1cef4d4baef4a97cd80b1bfda4b.tar.gz emacs-d71eb4d4f260f1cef4d4baef4a97cd80b1bfda4b.zip | |
(lm-verify): Remove useless use of
format.
| -rw-r--r-- | lisp/emacs-lisp/lisp-mnt.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/lisp-mnt.el b/lisp/emacs-lisp/lisp-mnt.el index 245772dfc54..e67835eb82d 100644 --- a/lisp/emacs-lisp/lisp-mnt.el +++ b/lisp/emacs-lisp/lisp-mnt.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; lisp-mnt.el --- utility functions for Emacs Lisp maintainers | 1 | ;;; lisp-mnt.el --- utility functions for Emacs Lisp maintainers |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1992, 1994, 1997, 2000, 2001, 2003 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1992, 1994, 1997, 2000, 2001, 2003, 2004 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> | 5 | ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> |
| 6 | ;; Maintainer: FSF | 6 | ;; Maintainer: FSF |
| @@ -522,7 +522,7 @@ copyright notice is allowed." | |||
| 522 | (setq ret | 522 | (setq ret |
| 523 | (cond | 523 | (cond |
| 524 | ((null name) | 524 | ((null name) |
| 525 | (format "Package %s does not exist")) | 525 | "Can't find package name") |
| 526 | ((not (lm-authors)) | 526 | ((not (lm-authors)) |
| 527 | "`Author:' tag missing") | 527 | "`Author:' tag missing") |
| 528 | ((not (lm-maintainer)) | 528 | ((not (lm-maintainer)) |
| @@ -546,7 +546,7 @@ copyright notice is allowed." | |||
| 546 | (concat "^;;;[ \t]+" name "[ \t]+ends here[ \t]*$" | 546 | (concat "^;;;[ \t]+" name "[ \t]+ends here[ \t]*$" |
| 547 | "\\|^;;;[ \t]+ End of file[ \t]+" name) | 547 | "\\|^;;;[ \t]+ End of file[ \t]+" name) |
| 548 | nil t))) | 548 | nil t))) |
| 549 | (format "Can't find the footer line")) | 549 | "Can't find the footer line") |
| 550 | ((not (and (lm-copyright-mark) (lm-crack-copyright))) | 550 | ((not (and (lm-copyright-mark) (lm-crack-copyright))) |
| 551 | "Can't find a valid copyright notice") | 551 | "Can't find a valid copyright notice") |
| 552 | ((not (or non-fsf-ok | 552 | ((not (or non-fsf-ok |