Mercurial > hg > xemacs-beta

comparison lisp/subr.el @ 772:d682c0f82a71

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-03-13 10:00:06 by ben] a few bytecomp warning fixes, run autoconf just in case
author ben
date Wed, 13 Mar 2002 10:00:09 +0000
parents 943eaba38521
children e65d9cf16707
comparison
equal deleted inserted replaced
771:943eaba38521 772:d682c0f82a71
1 ;;; subr.el --- basic lisp subroutines for XEmacs 1 ;;; subr.el --- basic lisp subroutines for XEmacs
2 2
3 ;; Copyright (C) 1985, 1986, 1992, 1994-5, 1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1985, 1986, 1992, 1994-5, 1997 Free Software Foundation, Inc.
4 ;; Copyright (C) 1995 Tinker Systems and INS Engineering Corp. 4 ;; Copyright (C) 1995 Tinker Systems and INS Engineering Corp.
5 ;; Copyright (C) 1995 Sun Microsystems. 5 ;; Copyright (C) 1995 Sun Microsystems.
6 ;; Copyright (C) 2000, 2001 Ben Wing. 6 ;; Copyright (C) 2000, 2001, 2002 Ben Wing.
7 7
8 ;; Maintainer: XEmacs Development Team 8 ;; Maintainer: XEmacs Development Team
9 ;; Keywords: extensions, dumped 9 ;; Keywords: extensions, dumped
10 10
11 ;; This file is part of XEmacs. 11 ;; This file is part of XEmacs.
514 simply returns the length of the string." 514 simply returns the length of the string."
515 (if (featurep 'mule) 515 (if (featurep 'mule)
516 (let ((col 0) 516 (let ((col 0)
517 (len (length string)) 517 (len (length string))
518 (i 0)) 518 (i 0))
519 (while (< i len) 519 (with-fboundp '(charset-width char-charset)
520 (setq col (+ col (charset-width (char-charset (aref string i))))) 520 (while (< i len)
521 (setq i (1+ i))) 521 (setq col (+ col (charset-width (char-charset (aref string i)))))
522 (setq i (1+ i))))
522 col) 523 col)
523 (length string))) 524 (length string)))
524 525
525 526
526 ;; alist/plist functions 527 ;; alist/plist functions