[Emacs-diffs] /srv/bzr/emacs/trunk r112437: * progmodes/octave.el: Compatible with older emacs-24 releases.

[Leo Liu]

------------------------------------------------------------
revno: 112437
committer: Leo Liu <address@hidden>
branch nick: trunk
timestamp: Thu 2013-05-02 01:25:03 +0800
message:
  * progmodes/octave.el: Compatible with older emacs-24 releases.
modified:
  lisp/ChangeLog
  lisp/progmodes/octave.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-05-01 16:42:18 +0000
+++ b/lisp/ChangeLog    2013-05-01 17:25:03 +0000
@@ -1,7 +1,8 @@
 2013-05-01  Leo Liu  <address@hidden>
 
-       * progmodes/octave.el (inferior-octave-has-built-in-variables):
-       Remove.  Buil-in variables were removed from Octave in 2007.
+       * progmodes/octave.el: Compatible with older emacs-24 releases.
+       (inferior-octave-has-built-in-variables): Remove.  Buil-in
+       variables were removed from Octave in 2007.
        (inferior-octave-startup): Fix uses.
        (comint-line-beginning-position): Remove compatibility code for
        emacs 21.

=== modified file 'lisp/progmodes/octave.el'
--- a/lisp/progmodes/octave.el  2013-05-01 16:42:18 +0000
+++ b/lisp/progmodes/octave.el  2013-05-01 17:25:03 +0000
@@ -34,6 +34,14 @@
 ;;; Code:
 (require 'comint)
 
+;;; For emacs < 24.3.
+(require 'newcomment)
+(eval-when-compile
+  (unless (fboundp 'setq-local)
+    (defmacro setq-local (var val)
+      "Set variable VAR to value VAL in current buffer."
+      (list 'set (list 'make-local-variable (list 'quote var)) val))))
+
 (defgroup octave nil
   "Editing Octave code."
   :link '(custom-group-link :tag "Font Lock Faces group" font-lock-faces)