Commit ef54d315 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

* lisp/progmodes/octave-mod.el (octave-mark-block): Move out of tokens and

fix open-paren-like token test.

Fixes: debbugs:12785
parent 82d384f0
2012-12-05 Stefan Monnier <monnier@iro.umontreal.ca>
* progmodes/octave-mod.el (octave-mark-block): Move out of tokens and
fix open-paren-like token test (bug#12785).
2012-12-04 Glenn Morris <rgm@gnu.org>
 
* mail/rmailsum.el (rmail-new-summary): Tweak for
......
......@@ -794,11 +794,14 @@ does not end in `...' or `\\' or is inside an open parenthesis list."
"Put point at the beginning of this Octave block, mark at the end.
The block marked is the one that contains point or follows point."
(interactive)
(if (and (looking-at "\\sw\\|\\s_")
(looking-back "\\sw\\|\\s_" (1- (point))))
(skip-syntax-forward "w_"))
(unless (or (looking-at "\\s(")
(save-excursion
(let* ((token (funcall smie-forward-token-function))
(level (assoc token smie-grammar)))
(and level (null (cadr level))))))
(and level (not (numberp (cadr level)))))))
(backward-up-list 1))
(mark-sexp))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment