Mercurial > hg > xemacs-beta

diff lisp/modes/executable.el @ 98:0d2f883870bc r20-1b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b1
author cvs
date Mon, 13 Aug 2007 09:13:56 +0200
parents 131b0175ea99
children cca96a509cfe
line wrap: on
line diff
--- a/lisp/modes/executable.el	Mon Aug 13 09:12:43 2007 +0200
+++ b/lisp/modes/executable.el	Mon Aug 13 09:13:56 2007 +0200
@@ -211,7 +211,8 @@
 			     (y-or-n-p (concat "Replace magic number by `"
 					       executable-prefix argument "'? "))))
 		       (progn
-			 (replace-match argument t t nil 1)
+			 (replace-match (concat executable-prefix argument)
+					t t nil 1)
 			 (message "Magic number changed to `%s'"
 				  (concat executable-prefix argument)))))
 	    (insert executable-prefix argument ?\n)