diff options
Diffstat (limited to 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/idlw-shell.el | 2 | ||||
| -rw-r--r-- | lisp/progmodes/idlwave.el | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/idlw-shell.el b/lisp/progmodes/idlw-shell.el index dde51b355e5..3367454c1cc 100644 --- a/lisp/progmodes/idlw-shell.el +++ b/lisp/progmodes/idlw-shell.el | |||
| @@ -2155,7 +2155,7 @@ args of an executive .run, .rnew or .compile." | |||
| 2155 | ;; Skip backwards over file name chars | 2155 | ;; Skip backwards over file name chars |
| 2156 | (skip-chars-backward idlwave-shell-file-name-chars limit) | 2156 | (skip-chars-backward idlwave-shell-file-name-chars limit) |
| 2157 | ;; Check of the next char is a string delimiter | 2157 | ;; Check of the next char is a string delimiter |
| 2158 | (memq (preceding-char) '(?\' ?\"))))) | 2158 | (and (memq (preceding-char) '(?\' ?\")) t)))) |
| 2159 | 2159 | ||
| 2160 | (defun idlwave-shell-batch-command () | 2160 | (defun idlwave-shell-batch-command () |
| 2161 | "Return t if we're in a batch command statement like @foo" | 2161 | "Return t if we're in a batch command statement like @foo" |
diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el index 3535a7b4aa3..9c46ac84e22 100644 --- a/lisp/progmodes/idlwave.el +++ b/lisp/progmodes/idlwave.el | |||
| @@ -3629,7 +3629,7 @@ Calling from a program, arguments are START END." | |||
| 3629 | (defun idlwave-quoted () | 3629 | (defun idlwave-quoted () |
| 3630 | "Return t if point is in a comment or quoted string. | 3630 | "Return t if point is in a comment or quoted string. |
| 3631 | Returns nil otherwise." | 3631 | Returns nil otherwise." |
| 3632 | (or (idlwave-in-comment) (idlwave-in-quote))) | 3632 | (and (or (idlwave-in-comment) (idlwave-in-quote)) t)) |
| 3633 | 3633 | ||
| 3634 | (defun idlwave-in-quote () | 3634 | (defun idlwave-in-quote () |
| 3635 | "Return location of the opening quote | 3635 | "Return location of the opening quote |