Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
97:498bf5da1c90 98:0d2f883870bc
209 ;; Make buffer visible before question. 209 ;; Make buffer visible before question.
210 (switch-to-buffer (current-buffer)) 210 (switch-to-buffer (current-buffer))
211 (y-or-n-p (concat "Replace magic number by `" 211 (y-or-n-p (concat "Replace magic number by `"
212 executable-prefix argument "'? ")))) 212 executable-prefix argument "'? "))))
213 (progn 213 (progn
214 (replace-match argument t t nil 1) 214 (replace-match (concat executable-prefix argument)
215 t t nil 1)
215 (message "Magic number changed to `%s'" 216 (message "Magic number changed to `%s'"
216 (concat executable-prefix argument))))) 217 (concat executable-prefix argument)))))
217 (insert executable-prefix argument ?\n) 218 (insert executable-prefix argument ?\n)
218 (message "Magic number changed to `%s'" 219 (message "Magic number changed to `%s'"
219 (concat executable-prefix argument))) 220 (concat executable-prefix argument)))