Mercurial > hg > xemacs-beta

comparison lisp/packages/supercite.el @ 159:3bb7ccffb0c0 r20-3b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b6
author cvs
date Mon, 13 Aug 2007 09:41:43 +0200
parents cca96a509cfe
children 8eaf7971accc
comparison
equal deleted inserted replaced
158:558dfa75ffb3 159:3bb7ccffb0c0
1050 ;; strip off any leading or trailing whitespace 1050 ;; strip off any leading or trailing whitespace
1051 (if namestring 1051 (if namestring
1052 (let ((bos 0) 1052 (let ((bos 0)
1053 (eos (1- (length namestring)))) 1053 (eos (1- (length namestring))))
1054 (while (and (<= bos eos) 1054 (while (and (<= bos eos)
1055 (memq (aref namestring bos) '(32 ?\t))) 1055 (memq (aref namestring bos) '(?\ ?\t)))
1056 (setq bos (1+ bos))) 1056 (setq bos (1+ bos)))
1057 (while (and (> eos bos) 1057 (while (and (> eos bos)
1058 (memq (aref namestring eos) '(32 ?\t))) 1058 (memq (aref namestring eos) '(?\ ?\t)))
1059 (setq eos (1- eos))) 1059 (setq eos (1- eos)))
1060 (substring namestring bos (1+ eos)))))) 1060 (substring namestring bos (1+ eos))))))
1061 1061
1062 (defun sc-attribs-chop-namestring (namestring) 1062 (defun sc-attribs-chop-namestring (namestring)
1063 "Convert NAMESTRING to a list of names. 1063 "Convert NAMESTRING to a list of names.