Mercurial > hg > xemacs-beta

comparison lisp/modes/list-mode.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents 0293115a14e9
children 56c54cf7c5b6
comparison
equal deleted inserted replaced
29:7976500f47f9 30:ec9a17fef872
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.")