* src/process.c (get_process): Explicit error for dead buffers

That seems more in keeping with the existing behavior of this function
in other situations.

diff --git a/src/ChangeLog b/src/ChangeLog
index c6f63adebcdd5e4b868d884a9d8907c18615c849..bc3d3ba6f250aea1ada62a468111a7741aecb22e 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2013-11-23  Glenn Morris  <rgm@gnu.org>
+
+       * process.c (get_process): Explicit error for dead buffers.
+
 2013-11-23  Andreas Schwab  <schwab@linux-m68k.org>
 
        * process.c (get_process): Check that OBJ is a live buffer.  (Bug#15923)

diff --git a/src/process.c b/src/process.c
index 7d4fb4e3ec4b4caa88a2174211c1520643c8a5f6..7050bf9822e5f9276eef31831344f093ac4af2fc 100644 (file)
--- a/src/process.c
+++ b/src/process.c
@@ -1,7 +1,7 @@
 /* Asynchronous subprocess control for GNU Emacs.
 
-Copyright (C) 1985-1988, 1993-1996, 1998-1999, 2001-2013 Free Software
-Foundation, Inc.
+Copyright (C) 1985-1988, 1993-1996, 1998-1999, 2001-2013
+  Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
 
@@ -812,12 +812,14 @@ get_process (register Lisp_Object name)
   else
     obj = name;
 
-  /* Now obj should be either a (live) buffer object or a process object.  */
-  if (BUFFERP (obj) && !NILP (BVAR (XBUFFER (obj), name)))
+  /* Now obj should be either a buffer object or a process object.  */
+  if (BUFFERP (obj))
     {
+      if (NILP (BVAR (XBUFFER (obj), name)))
+        error ("Attempt to get process for a dead buffer");
       proc = Fget_buffer_process (obj);
       if (NILP (proc))
-       error ("Buffer %s has no process", SDATA (BVAR (XBUFFER (obj), name)));
+        error ("Buffer %s has no process", SDATA (BVAR (XBUFFER (obj), name)));
     }
   else
     {