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

for some reason.
This commit is contained in:
Gary Houston 2002-07-09 21:09:58 +00:00
commit fc5c6d0047
2 changed files with 9 additions and 0 deletions

View file

@ -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)