procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Glenn Morris 2010-11-10 00:21:06 -08:00
parent c026460bc4
commit 6d2a1e3566
2 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

@ -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)

7
lisp/progmodes/octave-mod.el
View file

@ -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 @@ 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