[docbook-checkins] CVS: dsssl/html dbblock.dsl,1.8,1.9

[Adam Di C. <adi...@us...>]

Update of /cvsroot/docbook/dsssl/html
In directory sc8-pr-cvs1:/tmp/cvs-serv9488

Modified Files:
	dbblock.dsl 
Log Message:
move the anchor closer to the content in informal-objects; no way to
get around empty A element in this case


Index: dbblock.dsl
===================================================================
RCS file: /cvsroot/docbook/dsssl/html/dbblock.dsl,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -r1.8 -r1.9
*** dbblock.dsl	21 Jan 2003 21:53:07 -0000	1.8
--- dbblock.dsl	7 Feb 2003 20:39:48 -0000	1.9
***************
*** 158,167 ****
  	  attributes: (list
  		       (list "CLASS" (gi)))
- 	  (if id
- 	      (make element gi: "A"
- 		    attributes: (list (list "NAME" id))
- 		    (empty-sosofo))
- 	      (empty-sosofo))
- 
  	  (if %spacing-paras%
  	      (make element gi: "P" (empty-sosofo))
--- 158,161 ----
***************
*** 170,173 ****
--- 164,175 ----
  	  (if rule-before?
  	      (make empty-element gi: "HR")
+ 	      (empty-sosofo))
+ 
+ 	  (if id
+               ;; empty A is a little evil but for instance you can't
+               ;; wrap TABLE within A
+ 	      (make element gi: "A"
+ 		    attributes: (list (list "NAME" id))
+ 		    (empty-sosofo))
  	      (empty-sosofo))