← Back to branch summary

~ubuntu-branches/ubuntu/karmic/maxima/karmic

« back to all changes in this revision

Viewing changes to interfaces/xmaxima/Tkmaxima/Browser.tcl

  • Committer: Bazaar Package Importer
  • Author(s): Barry deFreese
  • Date: 2006-07-06 17:04:52 UTC
  • mfrom: (1.1.4 upstream)
  • Revision ID: james.westby@ubuntu.com-20060706170452-j9ypoqc1kjfnz221
Tags: 5.9.3-1ubuntu1
* Re-sync with Debian
* Comment out backward-delete-char-untabify in maxima.el (Closes Malone #5273)
* debian/control: build-dep automake -> automake1.9 (Closes BTS: #374663)

Show diffs side-by-side

added added

removed removed

Lines of Context:
interfaces/xmaxima/Tkmaxima/Browser.tcl
1
1
# -*-mode: tcl; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
2
2
#
3
 
#       $Id: Browser.tcl,v 1.13 2004/10/13 12:08:57 vvzhy Exp $
 
3
#       $Id: Browser.tcl,v 1.14 2006/01/03 12:36:25 vvzhy Exp $
4
4
#
5
5
###### Browser.tcl ######
6
6
############################################################
627
627
            set name [toLocalFilename $res]
628
628
            set fi [open $name r]
629
629
            set answer [read $fi]
630
 
            if { [regexp {[.]html?$} $name ] || [regexp -nocase "^(\[ \n\t\r\])*<html>" $answer] } {
 
630
            if { [regexp -nocase {[.]html?$} $name ] || [regexp -nocase "^(\[ \n\t\r\])*<html>" $answer] } {
631
631
                set contentType text/html
632
632
            } elseif {  [regexp {[.]gif([^/]*)$} $name ] } {
633
633
                set contentType image/gif