* progmodes/octave.el (octave-mode): Backward compatibility fix.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1b1714711caf9c7e038b93a96237ce1ed30d3e05..7c6a59c75f79d9bfbc286d59cf8eb7e96b0da901 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2013-06-21  Leo Liu  <sdl.web@gmail.com>
+
+       * progmodes/octave.el (octave-mode): Backward compatibility fix.
+
 2013-06-21  Glenn Morris  <rgm@gnu.org>
 
        * font-lock.el (lisp-font-lock-keywords-2): Add with-eval-after-load.

diff --git a/lisp/progmodes/octave.el b/lisp/progmodes/octave.el
index 4e5a3058d4e57bb8f1cabe888974c3ff745d9fb9..de1c26a7fa760ed57b069a7dca57029da6f0ee53 100644 (file)
--- a/lisp/progmodes/octave.el
+++ b/lisp/progmodes/octave.el
@@ -554,8 +554,13 @@ definitions can also be stored in files and used in batch mode."
 
   (setq-local fill-nobreak-predicate
               (lambda () (eq (octave-in-string-p) ?')))
-  (add-function :around (local 'comment-line-break-function)
-                #'octave--indent-new-comment-line)
+  (with-no-warnings
+    (if (fboundp 'add-function)         ; new in 24.4
+        (add-function :around (local 'comment-line-break-function)
+                      #'octave--indent-new-comment-line)
+      (setq-local comment-line-break-function
+                  (apply-partially #'octave--indent-new-comment-line
+                                   #'comment-indent-new-line))))
 
   (setq font-lock-defaults '(octave-font-lock-keywords))
 
@@ -1151,8 +1156,6 @@ q: Don't fix\n" func file))
 ;;; Indentation
 
 (defun octave-indent-new-comment-line (&optional soft)
-  ;; FIXME: C-M-j should probably be bound globally to a function like
-  ;; this one.
   "Break Octave line at point, continuing comment if within one.
 Insert `octave-continuation-string' before breaking the line
 unless inside a list.  Signal an error if within a single-quoted