diff options
| author | Leo Liu | 2013-05-02 01:25:03 +0800 |
|---|---|---|
| committer | Leo Liu | 2013-05-02 01:25:03 +0800 |
| commit | 2640d52e4e7873e41b0f0f1144177f84c345917e (patch) | |
| tree | 7df954078426bfc5caa362e186fcac8e151f2e0d | |
| parent | d8ef28b19d21b0fd021ceb6fe5e6ce392be63169 (diff) | |
| download | emacs-2640d52e4e7873e41b0f0f1144177f84c345917e.tar.gz emacs-2640d52e4e7873e41b0f0f1144177f84c345917e.zip | |
* progmodes/octave.el: Compatible with older emacs-24 releases.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/progmodes/octave.el | 8 |
2 files changed, 11 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index aa2003a9aba..be8329a856c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,7 +1,8 @@ | |||
| 1 | 2013-05-01 Leo Liu <sdl.web@gmail.com> | 1 | 2013-05-01 Leo Liu <sdl.web@gmail.com> |
| 2 | 2 | ||
| 3 | * progmodes/octave.el (inferior-octave-has-built-in-variables): | 3 | * progmodes/octave.el: Compatible with older emacs-24 releases. |
| 4 | Remove. Buil-in variables were removed from Octave in 2007. | 4 | (inferior-octave-has-built-in-variables): Remove. Buil-in |
| 5 | variables were removed from Octave in 2007. | ||
| 5 | (inferior-octave-startup): Fix uses. | 6 | (inferior-octave-startup): Fix uses. |
| 6 | (comint-line-beginning-position): Remove compatibility code for | 7 | (comint-line-beginning-position): Remove compatibility code for |
| 7 | emacs 21. | 8 | emacs 21. |
diff --git a/lisp/progmodes/octave.el b/lisp/progmodes/octave.el index f12365552f9..4b02645e463 100644 --- a/lisp/progmodes/octave.el +++ b/lisp/progmodes/octave.el | |||
| @@ -34,6 +34,14 @@ | |||
| 34 | ;;; Code: | 34 | ;;; Code: |
| 35 | (require 'comint) | 35 | (require 'comint) |
| 36 | 36 | ||
| 37 | ;;; For emacs < 24.3. | ||
| 38 | (require 'newcomment) | ||
| 39 | (eval-when-compile | ||
| 40 | (unless (fboundp 'setq-local) | ||
| 41 | (defmacro setq-local (var val) | ||
| 42 | "Set variable VAR to value VAL in current buffer." | ||
| 43 | (list 'set (list 'make-local-variable (list 'quote var)) val)))) | ||
| 44 | |||
| 37 | (defgroup octave nil | 45 | (defgroup octave nil |
| 38 | "Editing Octave code." | 46 | "Editing Octave code." |
| 39 | :link '(custom-group-link :tag "Font Lock Faces group" font-lock-faces) | 47 | :link '(custom-group-link :tag "Font Lock Faces group" font-lock-faces) |