[Refdb-cvs] CVS: elisp refdb-mode.el,1.25,1.26

[Markus H. <mho...@us...>]

Update of /cvsroot/refdb/elisp
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22603

Modified Files:
	refdb-mode.el 
Log Message:
more fixes for calling external viewers on different OSes

Index: refdb-mode.el
===================================================================
RCS file: /cvsroot/refdb/elisp/refdb-mode.el,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -U2 -r1.25 -r1.26
--- refdb-mode.el	21 Dec 2005 00:19:03 -0000	1.25
+++ refdb-mode.el	23 Dec 2005 22:23:13 -0000	1.26
@@ -527,5 +527,4 @@
 	  )
 
-
 (add-hook 'refdb-mode-hook 'refdb-initialize-all-menus)
 (add-hook 'refdb-mode-hook 'refdb-set-default-database)
@@ -534,5 +533,4 @@
 (add-hook 'refdb-select-database-hook 'refdb-update-completion-lists)
 (add-hook 'refdb-select-database-hook 'refdb-find-dbengine)
-(add-hook 'menu-bar-update-hook 'refdb-update-database-menu)
 
 (defvar refdb-input-type "ris")
@@ -4144,5 +4142,5 @@
 	   "TEI.2")
 	  ((re-search-forward "<article.*>" nil t)
-	   "book")
+	   "article")
 	  ((re-search-forward "<book.*>" nil t)
 	   "book")
@@ -4171,10 +4169,15 @@
 		 (concat
 		  ;; need the protocol at least on Windoze
-		  "file:///"
+		  "file://"
+		  ;; we may have to prepend a slash because Windoze paths
+		  ;; start with a drive letter which has the browsers complain
+		  ;; about malformed URLs...
+		  (if (not (= (string-to-char buffer-file-name) 47))
+			   "/")
 		  (substring
 		   buffer-file-name
 		   0
 		   (string-match "/[^/]+$" buffer-file-name))
-		  (if (eq (refdb-check-doctype) "book")
+		  (if (string= (refdb-check-doctype) "book")
 		      "/book1.html"
 		    "/t1.html")
@@ -4182,4 +4185,14 @@
 		(t
 		 (concat
+		  ;; add the protocol for (x)html files
+		  (if (or
+		       (equal type "html")
+		       (equal type "xhtml"))
+		      (concat
+		       "file://"
+		       (if (not (= (string-to-char buffer-file-name) 47))
+				"/")
+		       )
+		    )
 		  (substring
 		   buffer-file-name