/[emacs]/emacs/lisp/uniquify.el
ViewVC logotype

Diff of /emacs/lisp/uniquify.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.51 by monnier, Sat May 10 22:45:06 2003 UTC revision 1.52 by monnier, Tue May 13 19:15:19 2003 UTC
# Line 111  would have the following buffer names in Line 111  would have the following buffer names in
111                  (const :tag "standard Emacs behavior (nil)" nil))                  (const :tag "standard Emacs behavior (nil)" nil))
112    :require 'uniquify)    :require 'uniquify)
113    
114  (defcustom uniquify-after-kill-buffer-p nil  (defcustom uniquify-after-kill-buffer-p t
115    "If non-nil, rerationalize buffer names after a buffer has been killed."    "If non-nil, rerationalize buffer names after a buffer has been killed."
116    :type 'boolean)    :type 'boolean)
117    
# Line 122  other buffer names are changed." Line 122  other buffer names are changed."
122    :type 'boolean)    :type 'boolean)
123    
124  ;; The default value matches certain Gnus buffers.  ;; The default value matches certain Gnus buffers.
125  (defcustom uniquify-ignore-buffers-re "^\\*\\(un\\)?sent "  (defcustom uniquify-ignore-buffers-re nil
126    "*Regular expression matching buffer names that should not be uniquified.    "*Regular expression matching buffer names that should not be uniquified.
127  For instance, set this to \"^draft-[0-9]+$\" to avoid having uniquify rename  For instance, set this to \"^draft-[0-9]+$\" to avoid having uniquify rename
128  draft buffers even if `uniquify-after-kill-buffer-p' is non-nil and the  draft buffers even if `uniquify-after-kill-buffer-p' is non-nil and the
# Line 213  this rationaliztion." Line 213  this rationaliztion."
213              (setf (uniquify-item-dirname (car items))              (setf (uniquify-item-dirname (car items))
214                    (uniquify-buffer-file-name                    (uniquify-buffer-file-name
215                     (uniquify-item-buffer (car items))))                     (uniquify-item-buffer (car items))))
216              ;; This shouldn't happen, but maybe there' no dirname any more.              ;; This shouldn't happen, but maybe there's no dirname any more.
217              (unless (uniquify-item-dirname (car items))              (unless (uniquify-item-dirname (car items))
218                (with-current-buffer (uniquify-item-buffer (car items))                (with-current-buffer (uniquify-item-buffer (car items))
219                  (setq uniquify-managed nil))                  (setq uniquify-managed nil))

Legend:
Removed from v.1.51  
changed lines
  Added in v.1.52

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26