Mercurial > hg > xemacs-beta

comparison lisp/pcl-cvs/cookie.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children 131b0175ea99
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
1 ;;; $Id: cookie.el,v 1.1.1.1 1996/12/18 03:32:25 steve Exp $ 1 ;;; $Id: cookie.el,v 1.1.1.2 1996/12/18 03:45:29 steve Exp $
2 ;;; cookie.el -- Utility to display cookies in buffers 2 ;;; cookie.el -- Utility to display cookies in buffers
3 3
4 ;; Copyright (C) 1991-1995 Free Software Foundation 4 ;; Copyright (C) 1991-1995 Free Software Foundation
5 5
6 ;; Author: Per Cederqvist <ceder@lysator.liu.se> 6 ;; Author: Per Cederqvist <ceder@lysator.liu.se>
807 807
808 ;; After last cookie? 808 ;; After last cookie?
809 ((>= pos (elib-wrapper->start-marker (dll-last dll))) 809 ((>= pos (elib-wrapper->start-marker (dll-last dll)))
810 (dll-nth dll -2)) 810 (dll-nth dll -2))
811 811
812 ;; We now now that pos is within a cookie. 812 ;; We now know that pos is within a cookie.
813 (t 813 (t
814 ;; Make an educated guess about which of the three known 814 ;; Make an educated guess about which of the three known
815 ;; cookies (the first, the last, or GUESS) is nearest. 815 ;; cookies (the first, the last, or GUESS) is nearest.
816 (let* ((best-guess (dll-nth dll 1)) 816 (let* ((best-guess (dll-nth dll 1))
817 (distance (elib-abs (- pos (elib-wrapper->start-marker 817 (distance (elib-abs (- pos (elib-wrapper->start-marker