Commit aa82f4fb authored by Karl Heuer's avatar Karl Heuer
Browse files

(octave-abbrev-start): Use the correct

name of the abbrev table, and provide support for XEmacs.
(octave-xemacs-p): New variable.
parent cbef3295
......@@ -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))))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment