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." ;; Skip backwards over file name chars (skip-chars-backward idlwave-shell-file-name-chars limit) ;; Check of the next char is a string delimiter - (memq (preceding-char) '(?\' ?\"))))) + (and (memq (preceding-char) '(?\' ?\")) t)))) (defun idlwave-shell-batch-command () "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." (defun idlwave-quoted () "Return t if point is in a comment or quoted string. Returns nil otherwise." - (or (idlwave-in-comment) (idlwave-in-quote))) + (and (or (idlwave-in-comment) (idlwave-in-quote)) t)) (defun idlwave-in-quote () "Return location of the opening quote |