← Back to branch summary

~nxhtml/nxhtml/main

« back to all changes in this revision

Viewing changes to util/ourcomments-util.el

  • Committer: Lennart Borgman
  • Date: 2011-07-23 01:01:16 UTC
  • mfrom: (822.1.1 nxhtml)
  • Revision ID: lennart.borgman@gmail.com-20110723010116-85mn9kzppp43ydon
beta 2.09

Show diffs side-by-side

added added

removed removed

Lines of Context:
util/ourcomments-util.el
2645
2645
              )
2646
2646
            ;; Check if the URL is to a local file and absolute. And we
2647
2647
            ;; have a buffer.
2648
 
            (when (and (buffer-file-name)
2649
 
                       (> (length url) 5)
2650
 
                       (string= (substring url 0 6) "file:/"))
 
2648
            (if (not (and (buffer-file-name)
 
2649
                          (> (length url) 5)
 
2650
                          (string= (substring url 0 6) "file:/")))
 
2651
                (save-match-data
 
2652
                  (setq url (browse-url-url-encode-chars url "[\]\[]")))
2651
2653
              (let ((abs-file-url
2652
2654
                     (if (not (memq system-type '(windows-nt ms-dos)))
2653
2655
                         (substring url 8)