Mercurial > hg > xemacs-beta

comparison lisp/modes/list-mode.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 0293115a14e9
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
155 'list-mode-item nil 'at) 155 'list-mode-item nil 'at)
156 nil)) 156 nil))
157 157
158 (defun list-mode-item-mouse-selected (event) 158 (defun list-mode-item-mouse-selected (event)
159 (interactive "e") 159 (interactive "e")
160 (list-mode-item-selected-1 (extent-at (event-closest-point event) 160 ;; #### sometimes event-closest-point returns nil.
161 (event-buffer event) 161 (let ((point (event-closest-point event)))
162 'list-mode-item nil 'at) 162 (list-mode-item-selected-1 (extent-at point
163 event)) 163 (event-buffer event)
164 'list-mode-item nil 'at)
165 event)))
164 166
165 (defun add-list-mode-item (start end &optional buffer activate-callback 167 (defun add-list-mode-item (start end &optional buffer activate-callback
166 user-data) 168 user-data)
167 "Add a new list item in list-mode, from START to END in BUFFER. 169 "Add a new list item in list-mode, from START to END in BUFFER.
168 BUFFER defaults to the current buffer. 170 BUFFER defaults to the current buffer.