Changeset 21454 for lang/gauche

Show
Ignore:
Timestamp:
10/17/08 00:17:09 (5 years ago)
Author:
kiyoka
Message:

Bugfix: 'Converting URL to ##(amazon ASIN) command' feature generates wrong ASIN code.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/gauche/oldtype/trunk/Kahua/oldtype/oldtype/oldtype-mode.el

    r21132 r21454  
    2525;; 
    2626;; How to nstall and How to use: 
    27 ;;     http://oldtype.sumibi.org/ 
     27;;     http://oldtype.sumibi.org/show-page/oldtype-mode 
    2828;; 
    2929;; 
    3030;; ChangeLog: 
     31;;   [0.0.9] 
     32;;     1. Bugfix: 'Converting URL to ##(amazon ASIN) command' feature generates wrong ASIN code. 
     33;; 
    3134;;   [0.0.8] 
    3235;;     1. Fixed bug: illegal ASINCODE of amazon and VIDEOCODE of youtube use for image file creation. 
     
    5760;; 
    5861;; 
    59 (defconst oldtype-version "0.0.8") 
     62(defconst oldtype-version "0.0.9") 
    6063 
    6164(defconst oldtype-wikiname-face 'oldtype-wikiname-face) 
     
    670673          (_url_amazon-pattern 
    671674           "\\(http://.*amazon[.]c.*\\)/\\([0-9A-Z-][0-9A-Z-][0-9A-Z-][0-9A-Z-][0-9A-Z-][0-9A-Z-][0-9A-Z-][0-9A-Z-][0-9A-Z-][0-9A-Z-]\\)[^0-9A-Z-]?\\(.*\\)") 
     675          (_url_amazon-pattern-part 
     676           "/dp/\\([0-9A-Z-][0-9A-Z-][0-9A-Z-][0-9A-Z-][0-9A-Z-][0-9A-Z-][0-9A-Z-][0-9A-Z-][0-9A-Z-][0-9A-Z-]\\)") 
    672677          (_url_youtube-pattern 
    673678           "\\(http://.*youtube[.]com/watch\\?v=\\)\\([0-9A-Za-z_-]+\\)\\(.*\\)")) 
     
    734739                 (e     (match-end 3)) 
    735740                 (title (oldtype-fetch-html-title url))) 
     741            (message str) 
     742            (when (string-match    _url_amazon-pattern-part  str) 
     743              (setq asin (match-string 1 str))) 
    736744            (delete-region s e) 
    737745            (goto-char s)