Mercurial > hg > xemacs-beta

comparison lisp/modes/executable.el @ 22:8fc7fe29b841 r19-15b94

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b94
author cvs
date Mon, 13 Aug 2007 08:50:29 +0200
parents ac2d302a0011
children 131b0175ea99
comparison
equal deleted inserted replaced
21:b88636d63495 22:8fc7fe29b841
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)))