From aa82f4fbdfc5cef6a24777b9909a82cab44fea9c Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 10 Dec 1998 03:15:25 +0000 Subject: (octave-abbrev-start): Use the correct name of the abbrev table, and provide support for XEmacs. (octave-xemacs-p): New variable. --- lisp/progmodes/octave-mod.el | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) (limited to 'lisp/progmodes/octave-mod.el') diff --git a/lisp/progmodes/octave-mod.el b/lisp/progmodes/octave-mod.el index f97b595b62..2b95c85b41 100644 --- a/lisp/progmodes/octave-mod.el +++ b/lisp/progmodes/octave-mod.el @@ -626,6 +626,9 @@ the end keyword." (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 @@ Note that all Octave mode abbrevs start with a grave accent." (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)))))) -- cgit v1.2.3