Mercurial > emacs
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) |
