summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGary Houston <ghouston@arglist.com>2002-07-09 21:09:58 +0000
committerGary Houston <ghouston@arglist.com>2002-07-09 21:09:58 +0000
commitfc5c6d0047b0dd3edf8b9827ebf31d2156c6c36b (patch)
tree3b726c950bfaf733bb13cb5559efacb50ec46efd
parent2398796a8d12494f811dcad92943bb3c700c970c (diff)
downloadguile-fc5c6d0047b0dd3edf8b9827ebf31d2156c6c36b.tar.gz
* docstring.el: defined caddr, used in several places but missing
for some reason.
-rw-r--r--doc/maint/ChangeLog5
-rw-r--r--doc/maint/docstring.el4
2 files changed, 9 insertions, 0 deletions
diff --git a/doc/maint/ChangeLog b/doc/maint/ChangeLog
index 7e8cd2eae..36735af2d 100644
--- a/doc/maint/ChangeLog
+++ b/doc/maint/ChangeLog
@@ -1,3 +1,8 @@
+2002-07-09 Gary Houston <ghouston@arglist.com>
+
+ * docstring.el: defined caddr, used in several places but missing
+ for some reason.
+
2002-04-02 Thien-Thi Nguyen <ttn@giblet.glug.org>
* doctring.el: List commands in commentary; nfc.
diff --git a/doc/maint/docstring.el b/doc/maint/docstring.el
index dddc8ba92..fda0b466b 100644
--- a/doc/maint/docstring.el
+++ b/doc/maint/docstring.el
@@ -243,6 +243,10 @@ to which new docstrings should be added.")
alist))))))))))
alist))
+;; missing in some environments?
+(defun caddr (list)
+ (nth 2 list))
+
;; Return the docstring from the specified LOCATION. LOCATION is a
;; list of three elements: buffer, start position and end position.
(defun location-to-docstring (location)