mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00
Code Issues Releases Activity

* progmodes/octave.el (octave-function-header-regexp): Fix.

Browse Source 
(octave-help-mode-finish-hook, octave-help-mode-finish):
Remove.  Just use temp-buffer-show-hook.

Fixes: debbugs:14570
This commit is contained in:
Leo Liu 2013-06-07 21:00:47 +08:00
parent a175bf337a
commit ce8209d4fe
2 changed files with 4 additions and 10 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-mode): Set comment-use-global-state
to t. (Bug#14303)
(octave-function-header-regexp): Fix. (Bug#14570)
(octave-help-mode-finish-hook, octave-help-mode-finish):
Remove. Just use temp-buffer-show-hook.
* newcomment.el (comment-search-backward): Revert last change.
(Bug#14434)

11
lisp/progmodes/octave.el
View File

@ -89,7 +89,7 @@ Used in `octave-mode' and `inferior-octave-mode' buffers.")
(defvar octave-function-header-regexp
(concat "^\\s-*\\_<\\(function\\)\\_>"
"\\([^=;\n]*=[ \t]*\\|[ \t]*\\)\\(\\(?:\\w\\|\\s_\\)+\\)\\_>")
"\\([^=;(\n]*=[ \t]*\\|[ \t]*\\)\\(\\(?:\\w\\|\\s_\\)+\\)\\_>")
"Regexp to match an Octave function header.
The string `function' and its name are given by the first and third
parenthetical grouping.")
@ -1607,15 +1607,6 @@ if ismember(exist(\"%s\"), [2 3 5 103]) print_usage(\"%s\") endif\n"
(when (or help-xref-stack help-xref-forward-stack)
(insert "\n"))))
(defvar octave-help-mode-finish-hook nil
"Octave specific hook for `temp-buffer-show-hook'.")
(defun octave-help-mode-finish ()
(when (eq major-mode 'octave-help-mode)
(run-hooks 'octave-help-mode-finish-hook)))
(add-hook 'temp-buffer-show-hook 'octave-help-mode-finish)
(defun octave-help (fn)
"Display the documentation of FN."
(interactive (list (octave-completing-read)))