diff options
author | Richard M. Stallman <rms@gnu.org> | 1994-11-15 14:01:12 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1994-11-15 14:01:12 +0000 |
commit | 489c043ab7ff9a96bd1077601e9f1be66e33e4ef (patch) | |
tree | e19f46939f02403683beade77468052944797876 /src/buffer.c | |
parent | 03fd0ac8e96d35c24213023b126a74555eed8a8b (diff) | |
download | emacs-489c043ab7ff9a96bd1077601e9f1be66e33e4ef.tar.gz emacs-489c043ab7ff9a96bd1077601e9f1be66e33e4ef.tar.bz2 emacs-489c043ab7ff9a96bd1077601e9f1be66e33e4ef.zip |
(Frename_buffer): Rename arg NAME to NEWNAME.
Diffstat (limited to 'src/buffer.c')
-rw-r--r-- | src/buffer.c | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/src/buffer.c b/src/buffer.c index dd7334ea52a..6f186c0e7d6 100644 --- a/src/buffer.c +++ b/src/buffer.c @@ -568,44 +568,44 @@ If UNIQUE is non-nil, come up with a new name using\n\ Interactively, you can set UNIQUE with a prefix argument.\n\ We return the name we actually gave the buffer.\n\ This does not change the name of the visited file (if any).") - (name, unique) - register Lisp_Object name, unique; + (newname, unique) + register Lisp_Object newname, unique; { register Lisp_Object tem, buf; - CHECK_STRING (name, 0); + CHECK_STRING (newname, 0); - if (XSTRING (name)->size == 0) + if (XSTRING (newname)->size == 0) error ("Empty string is invalid as a buffer name"); - tem = Fget_buffer (name); + tem = Fget_buffer (newname); /* Don't short-circuit if UNIQUE is t. That is a useful way to rename the buffer automatically so you can create another with the original name. It makes UNIQUE equivalent to - (rename-buffer (generate-new-buffer-name NAME)). */ + (rename-buffer (generate-new-buffer-name NEWNAME)). */ if (NILP (unique) && XBUFFER (tem) == current_buffer) - return current_buffer->name; + return current_buffer->newname; if (!NILP (tem)) { if (!NILP (unique)) - name = Fgenerate_new_buffer_name (name, current_buffer->name); + newname = Fgenerate_new_buffer_name (newname, current_buffer->name); else - error ("Buffer name \"%s\" is in use", XSTRING (name)->data); + error ("Buffer name `%s' is in use", XSTRING (newname)->data); } - current_buffer->name = name; + current_buffer->name = newname; /* Catch redisplay's attention. Unless we do this, the mode lines for any windows displaying current_buffer will stay unchanged. */ update_mode_lines++; XSETBUFFER (buf, current_buffer); - Fsetcar (Frassq (buf, Vbuffer_alist), name); + Fsetcar (Frassq (buf, Vbuffer_alist), newname); if (NILP (current_buffer->filename) && !NILP (current_buffer->auto_save_file_name)) call0 (intern ("rename-auto-save-file")); /* refetch since that last call may have done GC */ - return current_buffer->name; + return current_buffer->newname; } DEFUN ("other-buffer", Fother_buffer, Sother_buffer, 0, 2, 0, |