bug#32048: Remove redundant value checks

bug#32048: Remove redundant value checks

[Fritz Stelzer]

[-- Attachment #1: Type: text/plain, Size: 1188 bytes --]

These checks are done in pset_filter and pset_sentinel.

master 05c42757da95e2697c08ce54f91b07649a431408
Author:     brotzeit <brotzeitmacher@gmail.com>
AuthorDate: Wed Jul 4 14:55:02 2018 +0200
Commit:     brotzeit <brotzeitmacher@gmail.com>
CommitDate: Wed Jul 4 14:55:02 2018 +0200

Parent:     3bbd4ffc68 * lisp/shell.el (shell-completion-vars):
Merged:     master
Containing: master
Follows:    emacs-26.1 (2428)

Remove redundant NILP calls

1 file changed, 6 deletions(-)
src/process.c | 6 ------

modified   src/process.c
@@ -1274,9 +1274,6 @@ The string argument is normally a multibyte string,
except:
      (debug)
      (set-process-filter process ...)  */

-  if (NILP (filter))
-    filter = Qinternal_default_process_filter;
-
   pset_filter (p, filter);

   if (p->infd >= 0)
@@ -1310,9 +1307,6 @@ It gets two arguments: the process, and a string
describing the change.  */)
   CHECK_PROCESS (process);
   p = XPROCESS (process);

-  if (NILP (sentinel))
-    sentinel = Qinternal_default_process_sentinel;
-
   pset_sentinel (p, sentinel);
   if (NETCONN1_P (p) || SERIALCONN1_P (p) || PIPECONN1_P (p))
     pset_childp (p, Fplist_put (p->childp, QCsentinel, sentinel));

[-- Attachment #2: Type: text/html, Size: 1537 bytes --]