53 |
;;; Code: |
;;; Code: |
54 |
|
|
55 |
(defgroup executable nil |
(defgroup executable nil |
56 |
"Base functionality for executable interpreter scripts" |
"Base functionality for executable interpreter scripts." |
57 |
:group 'processes) |
:group 'processes) |
58 |
|
|
59 |
;; This used to default to `other', but that doesn't seem to have any |
;; This used to default to `other', but that doesn't seem to have any |
230 |
(and (goto-char (match-beginning 1)) |
(and (goto-char (match-beginning 1)) |
231 |
;; If the line ends in a space, |
;; If the line ends in a space, |
232 |
;; don't offer to change it. |
;; don't offer to change it. |
233 |
(not (= (char-after (1- (match-end 1))) ?\ )) |
(not (= (char-after (1- (match-end 1))) ?\s)) |
234 |
(not (string= argument |
(not (string= argument |
235 |
(buffer-substring (point) (match-end 1)))) |
(buffer-substring (point) (match-end 1)))) |
236 |
(if (or (not executable-query) no-query-flag |
(if (or (not executable-query) no-query-flag |