Mercurial > hg > xemacs-beta
diff lisp/packages/supercite.el @ 159:3bb7ccffb0c0 r20-3b6
Import from CVS: tag r20-3b6
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:41:43 +0200 |
parents | cca96a509cfe |
children | 8eaf7971accc |
line wrap: on
line diff
--- a/lisp/packages/supercite.el Mon Aug 13 09:40:48 2007 +0200 +++ b/lisp/packages/supercite.el Mon Aug 13 09:41:43 2007 +0200 @@ -1052,10 +1052,10 @@ (let ((bos 0) (eos (1- (length namestring)))) (while (and (<= bos eos) - (memq (aref namestring bos) '(32 ?\t))) + (memq (aref namestring bos) '(?\ ?\t))) (setq bos (1+ bos))) (while (and (> eos bos) - (memq (aref namestring eos) '(32 ?\t))) + (memq (aref namestring eos) '(?\ ?\t))) (setq eos (1- eos))) (substring namestring bos (1+ eos))))))