projects
/
hyperobject.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r3671: *** empty log message ***
[hyperobject.git]
/
views.lisp
diff --git
a/views.lisp
b/views.lisp
index b609ca08a772aa837ce86e94567a5e748e141e80..ff663879499291991203436203cc34b57c8e95cd 100644
(file)
--- a/
views.lisp
+++ b/
views.lisp
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: views.lisp,v 1.
19 2002/12/26 12:04:00
kevin Exp $
+;;;; $Id: views.lisp,v 1.
20 2002/12/27 03:21:25
kevin Exp $
;;;;
;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
;;;;
;;;;
;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
;;;;
@@
-244,7
+244,7
@@
((or :xml-link-labels :ie-xml-link-labels)
(push name links)
(if (esd-hyperlink slot)
((or :xml-link-labels :ie-xml-link-labels)
(push name links)
(if (esd-hyperlink slot)
- (string-append fmtstr "<label>" xml-namestr "
>
</label> <~~a>" value-fmt "</~~a>")
+ (string-append fmtstr "<label>" xml-namestr "</label> <~~a>" value-fmt "</~~a>")
(string-append fmtstr (concatenate 'string "<label>" xml-namestr "</label> <" xml-tag ">" value-fmt "</" xml-tag ">")))))
) ;; let value-fmt
(string-append fmtstr (concatenate 'string "<label>" xml-namestr "</label> <" xml-tag ">" value-fmt "</" xml-tag ">")))))
) ;; let value-fmt