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

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

Fixes: debbugs:14570

2 files changed, 4 insertions, 10 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b6d934e95c4..4ff6a28ae9c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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)
diff --git a/lisp/progmodes/octave.el b/lisp/progmodes/octave.el
index 14d04b0d03c..5281af60b5d 100644
--- a/lisp/progmodes/octave.el
+++ b/lisp/progmodes/octave.el
@@ -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)))