# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 913259725 0
# Node ID 7896e341d77f6f0ee55a70ecaf949028abc12a66
# Parent  8d6ae4ca21a78fdaf9db81a50838253d03d13113
(octave-abbrev-start): Use the correct
name of the abbrev table, and provide support for XEmacs.
(octave-xemacs-p): New variable.

diff -r 8d6ae4ca21a7 -r 7896e341d77f lisp/progmodes/octave-mod.el
--- a/lisp/progmodes/octave-mod.el	Thu Dec 10 03:11:59 1998 +0000
+++ b/lisp/progmodes/octave-mod.el	Thu Dec 10 03:15:25 1998 +0000
@@ -626,6 +626,9 @@
     (delete-horizontal-space)
     (insert (concat " " octave-continuation-string))))
 
+(defvar octave-xemacs-p
+  (string-match "XEmacs\\|Lucid" emacs-version))
+
 ;;; Comments
 (defun octave-comment-region (beg end &optional arg)
   "Comment or uncomment each line in the region as Octave code.
@@ -1337,9 +1340,12 @@
       (self-insert-command 1)
     (let (c)
       (insert last-command-char)
-      (if (or (eq (setq c (read-event)) ??)
-	      (eq c help-char))
-	  (let ((abbrev-table-name-list '(octave-mode-abbrev-table)))
+      (if (if octave-xemacs-p
+	      (or (eq (event-to-character (setq c (next-event))) ??)
+		  (eq (event-to-character c) help-char))
+	    (or (eq (setq c (read-event)) ??)
+		(eq c help-char)))
+	  (let ((abbrev-table-name-list '(octave-abbrev-table)))
 	    (list-abbrevs))
 	(setq unread-command-events (list c))))))