Mercurial > hg > xemacs-beta

comparison lisp/modes/list-mode.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents 131b0175ea99
children 9b50b4588a93
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
111 (interactive "p") 111 (interactive "p")
112 (next-list-mode-item (- n))) 112 (next-list-mode-item (- n)))
113 113
114 (defun next-list-mode-item (n) 114 (defun next-list-mode-item (n)
115 "Move to the next item in list-mode. 115 "Move to the next item in list-mode.
116 WIth prefix argument N, move N items (negative N means move backward)." 116 With prefix argument N, move N items (negative N means move backward)."
117 (interactive "p") 117 (interactive "p")
118 (while (and (> n 0) (not (eobp))) 118 (while (and (> n 0) (not (eobp)))
119 (let ((prop (get-char-property (point) 'list-mode-item)) 119 (let ((prop (get-char-property (point) 'list-mode-item))
120 (end (point-max))) 120 (end (point-max)))
121 ;; If in a completion, move to the end of it. 121 ;; If in a completion, move to the end of it.
188 188
189 ;; Define the major mode for lists of completions. 189 ;; Define the major mode for lists of completions.
190 190
191 191
192 (defvar completion-highlight-first-word-only nil 192 (defvar completion-highlight-first-word-only nil
193 "*Completion will only hightlight the first blank delimited word if t. 193 "*Completion will only highlight the first blank delimited word if t.
194 If the variable in not t or nil, the string is taken as a regexp to match for end 194 If the variable in not t or nil, the string is taken as a regexp to match for end
195 of highlight") 195 of highlight")
196 196
197 (defvar completion-setup-hook nil 197 (defvar completion-setup-hook nil
198 "Normal hook run at the end of setting up the text of a completion buffer.") 198 "Normal hook run at the end of setting up the text of a completion buffer.")