# HG changeset patch
# User Noah Friedman <friedman@splode.com>
# Date 844404222 0
# Node ID 2b768a1e4f5f4818241de78b75a5d03ed4408e04
# Parent  4ec13b05b0fabd671368bfe0f8ac175b5ece8516
(eldoc-function-argstring-from-docstring): Add search that finds arglist
for `start-process'; possibly others.

diff -r 4ec13b05b0fa -r 2b768a1e4f5f lisp/emacs-lisp/eldoc.el
--- a/lisp/emacs-lisp/eldoc.el	Fri Oct 04 04:26:23 1996 +0000
+++ b/lisp/emacs-lisp/eldoc.el	Fri Oct 04 04:43:42 1996 +0000
@@ -11,9 +11,9 @@
 ;; LCD Archive Entry:
 ;; eldoc|Noah Friedman|friedman@prep.ai.mit.edu|
 ;; show function arglist or variable docstring in echo area|
-;; $Date: 1995/11/25 03:45:25 $|$Revision: 1.5 $|~/misc/eldoc.el.gz|
+;; $Date: 1996/07/14 16:46:25 $|$Revision: 1.6 $|~/misc/eldoc.el.gz|
 
-;; $Id: eldoc.el,v 1.5 1995/11/25 03:45:25 friedman Exp friedman $
+;; $Id: eldoc.el,v 1.6 1996/07/14 16:46:25 friedman Exp friedman $
 
 ;; This program is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -319,6 +319,8 @@
         (doclist nil)
         (end nil))
     (save-match-data
+      ;; TODO: Move these into a separate table that is iterated over until
+      ;; a match is found.
       (cond
        ;; Try first searching for args starting with symbol name.
        ;; This is to avoid matching parenthetical remarks in e.g. sit-for.
@@ -373,7 +375,13 @@
         (setq end (- (match-end 1) 1))
         (if (string-match " +" docstring (match-beginning 1))
             (setq doc (substring docstring (match-end 0) end))
-          (setq doc ""))))
+          (setq doc "")))
+
+       ;; This finds the argstring for `start-process'.
+       ;; I don't know if there are any others with the same pattern.
+       ((string-match "^Args are +\\([^\n]+\\)$" docstring)
+        (setq doc (substring docstring (match-beginning 1) (match-end 1))))
+       )
 
       (cond ((not (stringp doc))
              nil)