comparison lisp/emacs-lisp/eldoc.el @ 16385:2b768a1e4f5f

(eldoc-function-argstring-from-docstring): Add search that finds arglist for `start-process'; possibly others.

16384:4ec13b05b0fa

;; Created: 1995-10-06

;; LCD Archive Entry:
;; eldoc|Noah Friedman|[e-mail]|
;; show function arglist or variable docstring in echo area|
;; $Date: 1995/11/25 03:45:25 $|$Revision: 1.5 $|~/misc/eldoc.el.gz|

;; $Id: eldoc.el,v 1.5 1995/11/25 03:45: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
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.

  (let ((docstring (documentation fn 'raw))
        (doc nil)
        (doclist nil)
        (end nil))
    (save-match-data
      (cond
       ;; Try first searching for args starting with symbol name.
       ;; This is to avoid matching parenthetical remarks in e.g. sit-for.
       ((string-match (format "^(%s[^\n)]*)$" fn) docstring)
        ;; end does not include trailing ")" sequence.

       ((string-match (format "^[ \t]+\\((%s[^\n)]*)\\)$" fn) docstring)
        ;; end does not include trailing ")" sequence.
        (setq end (- (match-end 1) 1))
        (if (string-match " +" docstring (match-beginning 1))
            (setq doc (substring docstring (match-end 0) end))
          (setq doc ""))))

      (cond ((not (stringp doc))
             nil)
            ((string-match "&" doc)
             (let ((p 0)

16385:2b768a1e4f5f

;; Created: 1995-10-06

;; LCD Archive Entry:
;; eldoc|Noah Friedman|[e-mail]|
;; show function arglist or variable docstring in echo area|
;; $Date: 1996/07/14 16:46:25 $|$Revision: 1.6 $|~/misc/eldoc.el.gz|

;; $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
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.

  (let ((docstring (documentation fn 'raw))
        (doc nil)
        (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.
       ((string-match (format "^(%s[^\n)]*)$" fn) docstring)
        ;; end does not include trailing ")" sequence.

       ((string-match (format "^[ \t]+\\((%s[^\n)]*)\\)$" fn) docstring)
        ;; end does not include trailing ")" sequence.
        (setq end (- (match-end 1) 1))
        (if (string-match " +" docstring (match-beginning 1))
            (setq doc (substring docstring (match-end 0) end))
          (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)
            ((string-match "&" doc)
             (let ((p 0)