CVS update by scop packages/xemacs-packages/prog-modes, rpm-spec-mode.el ...

[xemacs-cvs at xemacs.org]

  User: scop    
  Date: 07/05/09 00:33:03

  Modified:    packages/xemacs-packages/prog-modes ChangeLog
                        rpm-spec-mode.el
Log:
`message' format string fixes.

Revision  Changes    Path
1.246     +9 -0      XEmacs/packages/xemacs-packages/prog-modes/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/prog-modes/ChangeLog,v
retrieving revision 1.245
retrieving revision 1.246
diff -u -p -r1.245 -r1.246
--- ChangeLog	2007/05/08 22:25:49	1.245
+++ ChangeLog	2007/05/08 22:33:02	1.246
@@ -5,6 +5,15 @@
 	(rpm-tags-list): Sync with rpm 4.4.9.
 	(rpm-section-regexp): Ditto.
 	(rpm-scripts): Ditto.
+	(rpm-change): `message' format string usage fix.
+	(rpm-change-n): Ditto.
+	(rpm-build-prepare): Ditto.
+	(rpm-list-check): Ditto.
+	(rpm-build-binary): Ditto.
+	(rpm-build-source): Ditto.
+	(rpm-build-all): Ditto.
+	(rpm-increase-release-tag): Ditto.
+	(rpm-increase-release-with-macros): Ditto.
 
 2007-02-07  Norbert Koch  <viteno at xemacs.org>
 



1.22      +14 -14    XEmacs/packages/xemacs-packages/prog-modes/rpm-spec-mode.el

Index: rpm-spec-mode.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/prog-modes/rpm-spec-mode.el,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -p -r1.21 -r1.22
--- rpm-spec-mode.el	2007/05/08 22:27:45	1.21
+++ rpm-spec-mode.el	2007/05/08 22:33:02	1.22
@@ -811,7 +811,7 @@ controls whether case is significant."
           (replace-match
            (concat what ": " (read-from-minibuffer
                               (concat "New " what ": ") (match-string 1))))
-        (message (concat what " tag not found...")))))))
+        (message "%s tag not found..." what))))))
 
 (defun rpm-change-n (what &optional arg)
   "Change given tag with possible number."
@@ -825,7 +825,7 @@ controls whether case is significant."
              (concat what number ": "
                      (read-file-name (concat "New " what number " file: ")
                                      "" "" nil (match-string 1)))))
-        (message (concat what " number \"" number "\" not found..."))))))
+        (message "%s number \"%s\" not found..." what number)))))
 
 (defun rpm-insert-group (group)
   "Insert Group tag."
@@ -1014,8 +1014,8 @@ leave point at previous location."
   "Run a `rpmbuild -bp'."
   (interactive "p")
   (if rpm-spec-short-circuit
-      (message (concat "Cannot run `" rpm-spec-build-command
-		       " -bp' with --short-circuit"))
+      (message "Cannot run `%s -bp' with --short-circuit"
+	       rpm-spec-build-command)
     (setq rpm-no-gpg t)
     (rpm-build "-bp")))
 
@@ -1023,8 +1023,8 @@ leave point at previous location."
   "Run a `rpmbuild -bl'."
   (interactive "p")
   (if rpm-spec-short-circuit
-      (message (concat "Cannot run `" rpm-spec-build-command
-		       " -bl' with --short-circuit"))
+      (message "Cannot run `%s -bl' with --short-circuit"
+	       rpm-spec-build-command)
     (setq rpm-no-gpg t)
     (rpm-build "-bl")))
 
@@ -1044,8 +1044,8 @@ leave point at previous location."
   "Run a `rpmbuild -bb'."
   (interactive "p")
   (if rpm-spec-short-circuit
-      (message (concat "Cannot run `" rpm-spec-build-command
-		       " -bb' with --short-circuit"))
+      (message "Cannot run `%s -bb' with --short-circuit"
+	       rpm-spec-build-command)
     (setq rpm-no-gpg nil)
     (rpm-build "-bb")))
 
@@ -1053,8 +1053,8 @@ leave point at previous location."
   "Run a `rpmbuild -bs'."
   (interactive "p")
   (if rpm-spec-short-circuit
-      (message (concat "Cannot run `" rpm-spec-build-command
-		       " -bs' with --short-circuit"))
+      (message "Cannot run `%s -bs' with --short-circuit"
+	       rpm-spec-build-command)
     (setq rpm-no-gpg nil)
     (rpm-build "-bs")))
 
@@ -1062,8 +1062,8 @@ leave point at previous location."
   "Run a `rpmbuild -ba'."
   (interactive "p")
   (if rpm-spec-short-circuit
-      (message (concat "Cannot run `" rpm-spec-build-command
-		       " -ba' with --short-circuit"))
+      (message "Cannot run `%s -ba' with --short-circuit"
+	       rpm-spec-build-command)
     (setq rpm-no-gpg nil)
     (rpm-build "-ba")))
 
@@ -1206,7 +1206,7 @@ command."
         (let ((release (1+ (string-to-int (match-string 1)))))
           (setq release (concat (int-to-string release) (match-string 2)))
           (replace-match (concat "Release: " release))
-          (message (concat "Release tag changed to " release ".")))
+          (message "Release tag changed to %s." release))
       (if (search-forward-regexp "^Release:[ \t]*%{?\\([^}]*\\)}?$" nil t)
           (rpm-increase-release-with-macros)
         (message "No Release tag found...")))))
@@ -1281,7 +1281,7 @@ if one is present in the file."
                str)))
         (setq dinrel inrel)
         (replace-match (concat "%define " dinrel))
-        (message (concat "Release tag changed to " dinrel "."))))))
+        (message "Release tag changed to %s." dinrel)))))
 
 ;;------------------------------------------------------------