comparison lisp/progmodes/executable.el @ 15678:7a25ca1a7d7d

(executable-set-magic): Don't put a space at end if user says no.
author Karl Heuer <kwzh@gnu.org>
date Mon, 15 Jul 1996 20:18:18 +0000
parents 0ce70615b9e9
children 911086ff68f5
comparison
equal deleted inserted replaced
15677:4431e88ce8d2 15678:7a25ca1a7d7d
209 (y-or-n-p (concat "Replace magic number by `" 209 (y-or-n-p (concat "Replace magic number by `"
210 executable-prefix argument "'? ")))) 210 executable-prefix argument "'? "))))
211 (progn 211 (progn
212 (replace-match argument t t nil 1) 212 (replace-match argument t t nil 1)
213 (message "Magic number changed to `%s'" 213 (message "Magic number changed to `%s'"
214 (concat executable-prefix argument))) 214 (concat executable-prefix argument)))))
215 ;; Add a space at the end of the line
216 ;; so we do not ask again about changing it.
217 (end-of-line)
218 (insert " ")))
219 (insert executable-prefix argument ?\n) 215 (insert executable-prefix argument ?\n)
220 (message "Magic number changed to `%s'" 216 (message "Magic number changed to `%s'"
221 (concat executable-prefix argument))) 217 (concat executable-prefix argument)))
222 ;;; (or insert-flag 218 ;;; (or insert-flag
223 ;;; (eq executable-insert t) 219 ;;; (eq executable-insert t)