mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-29 07:58:28 +00:00
Code Issues Releases Activity

* progmodes/octave.el (octave-help-mode): Adapt to change to

Browse Source 
help-mode-finish to use derived-mode-p on 2013-09-17.
(inferior-octave-prompt): Also match octave-gui.
This commit is contained in:
Leo Liu 2013-11-22 16:09:40 +08:00
parent 48592bfdf5
commit 8c09f64b76
2 changed files with 8 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -2,6 +2,9 @@
* progmodes/octave.el (octave-operator-regexp): Exclude newline.
(Bug#15076)
(octave-help-mode): Adapt to change to help-mode-finish to use
derived-mode-p on 2013-09-17.
(inferior-octave-prompt): Also match octave-gui.
2013-11-22 Leo Liu <sdl.web@gmail.com>

27
lisp/progmodes/octave.el
View File

@ -599,7 +599,7 @@ definitions can also be stored in files and used in batch mode."
:group 'octave)
(defcustom inferior-octave-prompt
"\\(^octave\\(\\|.bin\\|.exe\\)\\(-[.0-9]+\\)?\\(:[0-9]+\\)?\\|^debug\\|^\\)>+ "
"\\(^octave\\(\\|.bin\\|.exe\\|-gui\\)\\(-[.0-9]+\\)?\\(:[0-9]+\\)?\\|^debug\\|^\\)>+ "
"Regexp to match prompts for the inferior Octave process."
:type 'regexp
:group 'octave)
@ -1649,7 +1649,7 @@ code line."
(defvar octave-help-mode-map
(let ((map (make-sparse-keymap)))
(define-key map "\M-." 'octave-find-definition)
(define-key map "\M-." 'octave-find-definition)
(define-key map "\C-hd" 'octave-help)
(define-key map "\C-ha" 'octave-lookfor)
map))
@ -1659,26 +1659,9 @@ code line."
:abbrev-table nil
:syntax-table octave-mode-syntax-table
(eval-and-compile (require 'help-mode))
;; Mostly stolen from `help-make-xrefs'.
(let ((inhibit-read-only t))
(setq-local info-lookup-mode 'octave-mode)
;; Delete extraneous newlines at the end of the docstring
(goto-char (point-max))
(while (and (not (bobp)) (bolp))
(delete-char -1))
(insert "\n")
(when (or help-xref-stack help-xref-forward-stack)
(insert "\n"))
(when help-xref-stack
(help-insert-xref-button help-back-label 'help-back
(current-buffer)))
(when help-xref-forward-stack
(when help-xref-stack
(insert "\t"))
(help-insert-xref-button help-forward-label 'help-forward
(current-buffer)))
(when (or help-xref-stack help-xref-forward-stack)
(insert "\n"))))
;; Don't highlight `EXAMPLE' as elisp symbols by using a regexp that
;; can never match.
(setq-local help-xref-symbol-regexp "x\\`"))
(defun octave-help (fn)
"Display the documentation of FN."