From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sun, 27 Feb 2005 20:11:33 +0000 (+0000)
Subject: (write-preamble): remove pdf-viewer code.
X-Git-Tag: release/2.5.14~69
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=86e3bcd028e3e2276f70ecd5323486ad4fdd8b3c;p=lilypond.git

(write-preamble): remove pdf-viewer code.
---

diff --git a/ChangeLog b/ChangeLog
index d0726be8ed..50e1b85769 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2005-02-27  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
+	* scm/framework-ps.scm (write-preamble): remove pdf-viewer code.
+ 
 	* THANKS: add sponsor.
 
 	* scm/define-markup-commands.scm (with-url): new markup command.
diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index 620042278d..6707d5ce51 100644
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -242,17 +242,6 @@
 		  (filter string? font-names))))
 	   pfas))
 
-  ;; FIXME: user preference, somehow?
-  (define (pdf-viewer)
-    (define (find-alternative path lst)
-      (let ((command (search-path path (car lst))))
-	(if (or command (null? lst)) command
-	    (find-alternative path (cdr lst)))))
-    (let ((path (parse-path (getenv "PATH")))
-	  (pdf-viewers '("acroread" "gpdf" "kpdf" "xpdf" "gv" "echo")))
-      (find-alternative path pdf-viewers)))
-  
-  (format port "/pdf-viewer (~a) def\n" (basename (pdf-viewer)))
   (display (procset "music-drawing-routines.ps") port)
   (display (procset "lilyponddefs.ps") port)
   (if load-fonts?