aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKarl Heuer1996-01-24 23:32:14 +0000
committerKarl Heuer1996-01-24 23:32:14 +0000
commit5246db4e1f0626faa0209b225cfb9a89f72065a4 (patch)
tree454680e05515e37d24f4da6bc2f76b8da61794fe
parent624204f0ca1b615e5479dd9718484801176a97cb (diff)
downloademacs-5246db4e1f0626faa0209b225cfb9a89f72065a4.tar.gz
emacs-5246db4e1f0626faa0209b225cfb9a89f72065a4.zip
Several doc fixes.
-rw-r--r--lisp/uniquify.el32
1 files changed, 16 insertions, 16 deletions
diff --git a/lisp/uniquify.el b/lisp/uniquify.el
index acf6f93e27b..0152721dad0 100644
--- a/lisp/uniquify.el
+++ b/lisp/uniquify.el
@@ -1,4 +1,4 @@
1;;; uniquify.el --- unique buffer names dependent on pathname 1;;; uniquify.el --- unique buffer names dependent on file name
2 2
3;; Copyright (c) 1989, 1995 Free Software Foundation, Inc. 3;; Copyright (c) 1989, 1995 Free Software Foundation, Inc.
4 4
@@ -28,7 +28,7 @@
28;; Emacs's standard method for making buffer names unique adds <2>, <3>, 28;; Emacs's standard method for making buffer names unique adds <2>, <3>,
29;; etc. to the end of (all but one of) the buffers. This file replaces 29;; etc. to the end of (all but one of) the buffers. This file replaces
30;; that behavior, for buffers visiting files and dired buffers, with a 30;; that behavior, for buffers visiting files and dired buffers, with a
31;; uniquification that adds parts of the pathname until the buffer names 31;; uniquification that adds parts of the file name until the buffer names
32;; are unique. For instance, buffers visiting /u/mernst/tmp/Makefile and 32;; are unique. For instance, buffers visiting /u/mernst/tmp/Makefile and
33;; /usr/projects/zaphod/Makefile would be named Makefile|tmp and 33;; /usr/projects/zaphod/Makefile would be named Makefile|tmp and
34;; Makefile|zaphod, respectively (instead of Makefile and Makefile<2>). 34;; Makefile|zaphod, respectively (instead of Makefile and Makefile<2>).
@@ -76,10 +76,10 @@
76 76
77(defvar uniquify-buffer-name-style 'post-forward 77(defvar uniquify-buffer-name-style 'post-forward
78 "*If non-nil, buffer names are uniquified with parts of directory name. 78 "*If non-nil, buffer names are uniquified with parts of directory name.
79The value determines the buffer name style and is one of 'forward, 79The value determines the buffer name style and is one of `forward',
80'reverse, 'post-forward (the default), or 'post-forward-angle-brackets. 80`reverse', `post-forward' (the default), or `post-forward-angle-brackets'.
81For example, files /foo/bar/mumble/name and /baz/quux/mumble/name 81For example, files `/foo/bar/mumble/name' and `/baz/quux/mumble/name'
82would be in the following buffers: 82would have the following buffer names in the various styles:
83 forward bar/mumble/name quux/mumble/name 83 forward bar/mumble/name quux/mumble/name
84 reverse name\\mumble\\bar name\\mumble\\quux 84 reverse name\\mumble\\bar name\\mumble\\quux
85 post-forward name|bar/mumble name|quux/mumble 85 post-forward name|bar/mumble name|quux/mumble
@@ -97,19 +97,19 @@ If the user chooses to name a buffer, uniquification is preempted and no
97other buffer names are changed.") 97other buffer names are changed.")
98 98
99(defvar uniquify-min-dir-content 0 99(defvar uniquify-min-dir-content 0
100 "*Minimum parts of directory pathname included in buffer name.") 100 "*Minimum parts of directory name included in buffer name.")
101 101
102(defvar uniquify-separator nil 102(defvar uniquify-separator nil
103 "*String separator for buffer name components. 103 "*String separator for buffer name components.
104When `uniquify-buffer-name-style' is 'post-forward, separates 104When `uniquify-buffer-name-style' is `post-forward', separates
105base file name from directory part in buffer names (default \"|\"). 105base file name from directory part in buffer names (default \"|\").
106When `uniquify-buffer-name-style' is 'reverse, separates all 106When `uniquify-buffer-name-style' is `reverse', separates all
107pathname components (default \"\\\").") 107file name components (default \"\\\").")
108 108
109(defvar uniquify-trailing-separator-p nil 109(defvar uniquify-trailing-separator-p nil
110 "*If non-nil, add a pathname separator to dired buffer names. 110 "*If non-nil, add a file name separator to dired buffer names.
111If `uniquify-buffer-name-style' is 'forward, add the separator at the end; 111If `uniquify-buffer-name-style' is `forward', add the separator at the end;
112if it's is 'reverse, add the separator at the beginning; otherwise, this 112if it is `reverse', add the separator at the beginning; otherwise, this
113variable is ignored.") 113variable is ignored.")
114 114
115 115
@@ -137,9 +137,9 @@ variable is ignored.")
137;;; Main entry point. 137;;; Main entry point.
138 138
139(defun uniquify-rationalize-file-buffer-names (&optional newbuffile newbuf) 139(defun uniquify-rationalize-file-buffer-names (&optional newbuffile newbuf)
140 "Makes file buffer names unique by adding segments from pathname. 140 "Makes file buffer names unique by adding segments from file name.
141If `uniquify-min-dir-content' > 0, always pulls that many 141If `uniquify-min-dir-content' > 0, always pulls that many
142pathname elements. Arguments cause only a subset of buffers to be renamed." 142file name elements. Arguments cause only a subset of buffers to be renamed."
143 (interactive) 143 (interactive)
144 (let (fix-list 144 (let (fix-list
145 uniquify-non-file-buffer-names 145 uniquify-non-file-buffer-names
@@ -316,7 +316,7 @@ Works on dired buffers as well as ordinary file-visiting buffers."
316 316
317;;; Hooks from the rest of Emacs 317;;; Hooks from the rest of Emacs
318 318
319;; Emacs 19 (GNU Emacs or XEmacs) 319;; Emacs 19 (Emacs or XEmacs)
320 320
321;; The logical place to put all this code is in generate-new-buffer-name. 321;; The logical place to put all this code is in generate-new-buffer-name.
322;; It's written in C, so we would add a generate-new-buffer-name-function 322;; It's written in C, so we would add a generate-new-buffer-name-function