Mercurial > hgrepos > hgweb.cgi > yatex

comparison yahtml.el @ 462:c940797c19ad dev

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
href target of file should be untranslated before find-file
author HIROSE Yuuji <yuuji@gentei.org>
date Mon, 29 May 2017 09:10:44 +0859
parents 5709236dafb3
children e9299b77df1f
comparison
equal deleted inserted replaced
461:9db0e1522847 462:c940797c19ad
1 ;;; yahtml.el --- Yet Another HTML mode -*- coding: sjis -*- 1 ;;; yahtml.el --- Yet Another HTML mode -*- coding: sjis -*-
2 ;;; (c) 1994-2017 by HIROSE Yuuji [yuuji(@)yatex.org] 2 ;;; (c) 1994-2017 by HIROSE Yuuji [yuuji(@)yatex.org]
3 ;;; Last modified Tue May 16 12:56:27 2017 on firestorm 3 ;;; Last modified Mon May 29 09:10:43 2017 on firestorm
4 ;;; $Id$ 4 ;;; $Id$
5 5
6 (defconst yahtml-revision-number "1.79.3" 6 (defconst yahtml-revision-number "1.79.3"
7 "Revision number of running yahtml.el") 7 "Revision number of running yahtml.el")
8 8
1916 (let ((href (yahtml-on-href-p)) file name (parent buffer-file-name)) 1916 (let ((href (yahtml-on-href-p)) file name (parent buffer-file-name))
1917 (if href 1917 (if href
1918 (cond 1918 (cond
1919 ((string-match "^\\(ht\\|f\\)tps?:" href) 1919 ((string-match "^\\(ht\\|f\\)tps?:" href)
1920 (yahtml-browse-html href)) 1920 (yahtml-browse-html href))
1921 (t (setq file (substring href 0 (string-match "#" href))) 1921 (t (if (string-match "\&" href)
1922 (setq href (yahtml-untranslate-string href)))
1923 (setq file (substring href 0 (string-match "#" href)))
1922 (if (string-match "#" href) 1924 (if (string-match "#" href)
1923 (setq name (substring href (1+ (string-match "#" href))))) 1925 (setq name (substring href (1+ (string-match "#" href)))))
1924 (if (string< "" file) 1926 (if (string< "" file)
1925 (progn 1927 (progn
1926 (if (string-match "/$" file) 1928 (if (string-match "/$" file)

yatex.org