# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1289377266 28800
# Node ID 66c9a8999fbb9f55b4712508ff15a7dd6c2c9215
# Parent  20c4d074b74da93e0f356043694f2d650a2cb13b
* lisp/progmodes/octave-mod.el (octave-mark-block): Update for smie change.

diff -r 20c4d074b74d -r 66c9a8999fbb lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Nov 09 23:59:00 2010 -0800
+++ b/lisp/ChangeLog	Wed Nov 10 00:21:06 2010 -0800
@@ -1,5 +1,7 @@
 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)
diff -r 20c4d074b74d -r 66c9a8999fbb lisp/progmodes/octave-mod.el
--- a/lisp/progmodes/octave-mod.el	Tue Nov 09 23:59:00 2010 -0800
+++ b/lisp/progmodes/octave-mod.el	Wed Nov 10 00:21:06 2010 -0800
@@ -1,7 +1,7 @@
 ;;; 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 @@
   (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 @@
 
 (provide 'octave-mod)
 
-;; arch-tag: 05f1ce09-be87-4c00-803e-4919ffa26c23
 ;;; octave-mod.el ends here