mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

* docstring.el: defined caddr, used in several places but missing

Browse source 
for some reason.
This commit is contained in:
Gary Houston 2002-07-09 21:09:58 +00:00
parent 2398796a8d
commit fc5c6d0047
2 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
doc/maint/ChangeLog
View file

@ -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> 2002-04-02 Thien-Thi Nguyen <ttn@giblet.glug.org>
* doctring.el: List commands in commentary; nfc. * doctring.el: List commands in commentary; nfc.

4
doc/maint/docstring.el
View file

@ -243,6 +243,10 @@ to which new docstrings should be added.")
alist)))))))))) alist))))))))))
alist)) alist))
;; missing in some environments?
(defun caddr (list)
(nth 2 list))
;; Return the docstring from the specified LOCATION. LOCATION is a ;; Return the docstring from the specified LOCATION. LOCATION is a
;; list of three elements: buffer, start position and end position. ;; list of three elements: buffer, start position and end position.
(defun location-to-docstring (location) (defun location-to-docstring (location)