[Emacs-diffs] /srv/bzr/emacs/trunk r102318: * lisp/progmodes/octave-mod.el (octave-mark-block): Update for smie change.

[Glenn Morris]

------------------------------------------------------------
revno: 102318
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2010-11-10 00:21:06 -0800
message:
  * lisp/progmodes/octave-mod.el (octave-mark-block): Update for smie change.
modified:
  lisp/ChangeLog
  lisp/progmodes/octave-mod.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-11-10 07:59:00 +0000
+++ b/lisp/ChangeLog    2010-11-10 08:21:06 +0000
@@ -1,5 +1,7 @@
 2010-11-10  Glenn Morris  <address@hidden>
 
+       * 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)

=== modified file 'lisp/progmodes/octave-mod.el'
--- a/lisp/progmodes/octave-mod.el      2010-11-07 15:45:45 +0000
+++ b/lisp/progmodes/octave-mod.el      2010-11-10 08:21:06 +0000
@@ -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 <address@hidden>
 ;; Author: John Eaton <address@hidden>
@@ -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