summaryrefslogtreecommitdiff
path: root/doc/maint/docstring.el
diff options
context:
space:
mode:
Diffstat (limited to 'doc/maint/docstring.el')
-rw-r--r--doc/maint/docstring.el30
1 files changed, 17 insertions, 13 deletions
diff --git a/doc/maint/docstring.el b/doc/maint/docstring.el
index e0c05fa58..58d07eaa3 100644
--- a/doc/maint/docstring.el
+++ b/doc/maint/docstring.el
@@ -217,19 +217,22 @@ to which new docstrings should be added.")
(match-end 1))))
(if (string-equal matched "@c module ")
(setq module (read (current-buffer)))
- (setq matched
- (concat (buffer-substring (match-beginning 2)
- (match-end 2))
- " "
- (buffer-substring (match-beginning 3)
- (match-end 3))))
- (message "Found docstring: %S: %s" module matched)
- (let ((descriptions (assoc module alist)))
- (setq alist
- (cons (cons module (cons matched (cdr-safe descriptions)))
- (if descriptions
- (delete descriptions alist)
- alist))))))))
+ (let ((type (buffer-substring (match-beginning 2)
+ (match-end 2))))
+ (if (string-equal type "{C Function}")
+ nil
+ (setq matched
+ (concat type
+ " "
+ (buffer-substring (match-beginning 3)
+ (match-end 3))))
+ (message "Found docstring: %S: %s" module matched)
+ (let ((descriptions (assoc module alist)))
+ (setq alist
+ (cons (cons module (cons matched (cdr-safe descriptions)))
+ (if descriptions
+ (delete descriptions alist)
+ alist))))))))))
alist))
;; Return the docstring from the specified LOCATION. LOCATION is a
@@ -428,6 +431,7 @@ new snarfed docstring file.\n\n")
(insert "\n")
(goto-char (point-min))
+ (local-set-key "d" 'docstring-ediff-this-line)
;; Popup the issues buffer.
(let ((pop-up-frames t))