Mercurial > hg > xemacs-beta

comparison lisp/subr.el @ 377:d883f39b8495 r21-2b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b4
author cvs
date Mon, 13 Aug 2007 11:05:42 +0200
parents cc15677e0335
children 8626e4521993
comparison
equal deleted inserted replaced
376:e2295b4d9f2e 377:d883f39b8495
538 (or conds (signal-error 'error (list "Not an error symbol" error-sym))) 538 (or conds (signal-error 'error (list "Not an error symbol" error-sym)))
539 (put error-sym 'error-conditions (cons error-sym conds)))) 539 (put error-sym 'error-conditions (cons error-sym conds))))
540 540
541 ;;;; Miscellanea. 541 ;;;; Miscellanea.
542 542
543 (defun buffer-substring-no-properties (beg end) 543 ;; This is now in C.
544 "Return the text from BEG to END, without text properties, as a string." 544 ;(defun buffer-substring-no-properties (beg end)
545 (let ((string (buffer-substring beg end))) 545 ; "Return the text from BEG to END, without text properties, as a string."
546 (set-text-properties 0 (length string) nil string) 546 ; (let ((string (buffer-substring beg end)))
547 string)) 547 ; (set-text-properties 0 (length string) nil string)
548 ; string))
548 549
549 (defun get-buffer-window-list (&optional buffer minibuf frame) 550 (defun get-buffer-window-list (&optional buffer minibuf frame)
550 "Return windows currently displaying BUFFER, or nil if none. 551 "Return windows currently displaying BUFFER, or nil if none.
551 BUFFER defaults to the current buffer. 552 BUFFER defaults to the current buffer.
552 See `walk-windows' for the meaning of MINIBUF and FRAME." 553 See `walk-windows' for the meaning of MINIBUF and FRAME."