Commit 6d2a1e35 authored by Glenn Morris's avatar Glenn Morris
Browse files

* lisp/progmodes/octave-mod.el (octave-mark-block): Update for smie change.

parent c026460b
2010-11-10 Glenn Morris <rgm@gnu.org>
 
* progmodes/octave-mod.el (octave-mark-block): Update for smie change.
* emulation/edt.el (edt-with-position): New macro.
(edt-find-forward, edt-find-backward, edt-find-next-forward)
(edt-find-next-backward, edt-sentence-forward, edt-sentence-backward)
......
;;; octave-mod.el --- editing Octave source files under Emacs
;; Copyright (C) 1997, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
;; Free Software Foundation, Inc.
;; Copyright (C) 1997, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008,
;; 2009, 2010 Free Software Foundation, Inc.
;; Author: Kurt Hornik <Kurt.Hornik@wu-wien.ac.at>
;; Author: John Eaton <jwe@octave.org>
......@@ -829,7 +829,7 @@ The block marked is the one that contains point or follows point."
(unless (or (looking-at "\\s(")
(save-excursion
(let* ((token (funcall smie-forward-token-function))
(level (assoc token smie-op-levels)))
(level (assoc token smie-grammar)))
(and level (null (cadr level))))))
(backward-up-list 1))
(mark-sexp))
......@@ -1228,5 +1228,4 @@ code line."
(provide 'octave-mod)
;; arch-tag: 05f1ce09-be87-4c00-803e-4919ffa26c23
;;; octave-mod.el ends here
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