# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1256356117 0
# Node ID 89a1bad446737a7990c21b442cfc8b9dfdef2747
# Parent  2009126d46e19f557187b906b344ef1c9653aecf
(octave-complete-symbol): Use choose-completion if
mouse-choose-completion is ever removed.

diff -r 2009126d46e1 -r 89a1bad44673 lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Oct 24 03:45:50 2009 +0000
+++ b/lisp/ChangeLog	Sat Oct 24 03:48:37 2009 +0000
@@ -1,5 +1,8 @@
 2009-10-24  Glenn Morris  <rgm@gnu.org>
 
+	* progmodes/octave-mod.el (octave-complete-symbol): Use
+	choose-completion if mouse-choose-completion is ever removed.
+
 	* textmodes/sgml-mode.el (sgml-looking-back-at): Move definition before
 	use.
 
diff -r 2009126d46e1 -r 89a1bad44673 lisp/progmodes/octave-mod.el
--- a/lisp/progmodes/octave-mod.el	Sat Oct 24 03:45:50 2009 +0000
+++ b/lisp/progmodes/octave-mod.el	Sat Oct 24 03:48:37 2009 +0000
@@ -1268,7 +1268,9 @@
 			      (get-buffer "*Completions*"))
 			  (eq (key-binding key) 'mouse-choose-completion)))
 		   (progn
-		     (mouse-choose-completion first)
+		     (if (fboundp 'mouse-choose-completion)
+			 (mouse-choose-completion first)
+		       (choose-completion first)) ; Emacs >= 23.2
 		     (set-window-configuration conf))
 		 (if (eq first ?\ )
 		     (set-window-configuration conf)