Mercurial > emacs
comparison lisp/progmodes/executable.el @ 38713:0e498f6c5404
(executable-set-magic): If
executable-find returns a quoted file name, unquote it before
inserting it.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Tue, 07 Aug 2001 09:46:41 +0000 |
| parents | b174db545cfd |
| children | 89f6eeae2af3 |
comparison
equal
deleted
inserted
replaced
| 38712:cf3448e30109 | 38713:0e498f6c5404 |
|---|---|
| 208 executable." | 208 executable." |
| 209 (interactive | 209 (interactive |
| 210 (let* ((name (read-string "Name or file name of interpreter: ")) | 210 (let* ((name (read-string "Name or file name of interpreter: ")) |
| 211 (arg (read-string (format "Argument for %s: " name)))) | 211 (arg (read-string (format "Argument for %s: " name)))) |
| 212 (list name arg (eq executable-query 'function) t))) | 212 (list name arg (eq executable-query 'function) t))) |
| 213 | |
| 213 (setq interpreter (if (file-name-absolute-p interpreter) | 214 (setq interpreter (if (file-name-absolute-p interpreter) |
| 214 interpreter | 215 interpreter |
| 215 (or (executable-find interpreter) | 216 (or (executable-find interpreter) |
| 216 (error "Interpreter %s not recognized" interpreter))) | 217 (error "Interpreter %s not recognized" |
| 217 argument (concat interpreter | 218 interpreter)))) |
| 219 | |
| 220 (setq argument (concat (if (string-match "\\`/:" interpreter) | |
| 221 (replace-match "" nil nil interpreter) | |
| 222 interpreter) | |
| 218 (and argument (string< "" argument) " ") | 223 (and argument (string< "" argument) " ") |
| 219 argument)) | 224 argument)) |
| 225 | |
| 220 (or buffer-read-only | 226 (or buffer-read-only |
| 221 (if buffer-file-name | 227 (if buffer-file-name |
| 222 (string-match executable-magicless-file-regexp | 228 (string-match executable-magicless-file-regexp |
| 223 buffer-file-name)) | 229 buffer-file-name)) |
| 224 (not (or insert-flag executable-insert)) | 230 (not (or insert-flag executable-insert)) |
| 251 (concat executable-prefix argument))) | 257 (concat executable-prefix argument))) |
| 252 ;;; (or insert-flag | 258 ;;; (or insert-flag |
| 253 ;;; (eq executable-insert t) | 259 ;;; (eq executable-insert t) |
| 254 ;;; (set-buffer-modified-p buffer-modified-p)) | 260 ;;; (set-buffer-modified-p buffer-modified-p)) |
| 255 ))) | 261 ))) |
| 256 interpreter) | 262 interpreter) |
| 257 | 263 |
| 258 | 264 |
| 259 | 265 |
| 260 ;;;###autoload | 266 ;;;###autoload |
| 261 (defun executable-self-display () | 267 (defun executable-self-display () |