Lines Matching +refs:forward +refs:list
62 ;; uniquify-buffer-name-style; add 'forward and 'post-forward-angle-brackets
66 ;; Check whether list-buffers-directory is bound. mernst 11 Oct 96
72 ;; Add uniquify-list-buffers-directory-modes
99 The value determines the buffer name style and is one of `forward',
100 `reverse', `post-forward', or `post-forward-angle-brackets'.
103 forward bar/mumble/name quux/mumble/name
105 post-forward name|bar/mumble name|quux/mumble
106 post-forward-angle-brackets name<bar/mumble> name<quux/mumble>
108 :type '(radio (const forward)
110 (const post-forward)
111 (const post-forward-angle-brackets)
144 When `uniquify-buffer-name-style' is `post-forward', separates
153 If `uniquify-buffer-name-style' is `forward', add the separator at the end;
169 (defvar uniquify-list-buffers-directory-modes '(dired-mode cvs-mode)
170 "List of modes for which uniquify should obey `list-buffers-directory'.
171 That means that when `buffer-file-name' is set to nil, `list-buffers-directory'
176 ;; uniquify-fix-list data structure
188 It actually holds the list of `uniquify-item's corresponding to the conflict.")
201 (list (if uniquify-managed
210 (let ((fix-list (list (uniquify-make-item base dirname newbuf)))
212 (dolist (buffer (buffer-list))
221 (not (memq (car items) fix-list)))
236 (setq fix-list (append fix-list items))))
239 (uniquify-rationalize fix-list))))
245 in `uniquify-list-buffers-directory-modes', otherwise returns nil."
249 (if (memq major-mode uniquify-list-buffers-directory-modes)
250 list-buffers-directory))))
257 (defun uniquify-rerationalize-w/o-cb (fix-list)
259 (let ((new-fix-list nil))
260 (dolist (item fix-list)
263 (push item new-fix-list))))
264 (when new-fix-list
265 (uniquify-rationalize new-fix-list))))
267 (defun uniquify-rationalize (fix-list)
270 (dolist (item fix-list)
276 (setq uniquify-managed fix-list)))
278 (when (and (cdr fix-list) uniquify-strip-common-suffix)
281 (uniquify-item-dirname (car fix-list))))
282 (items fix-list))
290 (dolist (item (prog1 fix-list (setq fix-list nil)))
299 fix-list)))))
301 ;; passing fix-list to uniquify-rationalize-conflicting-sublist.
302 (uniquify-rationalize-a-list fix-list))
308 (defun uniquify-rationalize-a-list (fix-list &optional depth)
313 ;; Divide fix-list into items with same proposed names and pass them
315 (dolist (item (sort fix-list 'uniquify-item-greaterp))
334 (cond ((eq uniquify-buffer-name-style 'forward)
368 ((eq uniquify-buffer-name-style 'forward)
369 (mapconcat 'identity (nconc extra-string (list base))
371 ((eq uniquify-buffer-name-style 'post-forward)
374 ((eq uniquify-buffer-name-style 'post-forward-angle-brackets)
383 (defun uniquify-rationalize-conflicting-sublist (conf-list old-name depth)
384 (when conf-list
385 (if (or (cdr conf-list)
389 (and buf (not (eq buf (uniquify-item-buffer (car conf-list)))))))
393 (dolist (item conf-list)
399 (uniquify-rationalize-a-list conf-list depth))
401 (uniquify-rename-buffer (car conf-list) old-name)))))