diff options
Diffstat (limited to 'lisp/obsolete/eudcb-ph.el')
| -rw-r--r-- | lisp/obsolete/eudcb-ph.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/obsolete/eudcb-ph.el b/lisp/obsolete/eudcb-ph.el index c7212e3fdb7..187879ce2f7 100644 --- a/lisp/obsolete/eudcb-ph.el +++ b/lisp/obsolete/eudcb-ph.el @@ -1,4 +1,4 @@ -;;; eudcb-ph.el --- Emacs Unified Directory Client - CCSO PH/QI Backend +;;; eudcb-ph.el --- Emacs Unified Directory Client - CCSO PH/QI Backend -*- lexical-binding: t; -*- ;; Copyright (C) 1998-2021 Free Software Foundation, Inc. @@ -69,7 +69,7 @@ defaulting to `eudc-default-return-attributes'." query " ")) (if return-fields - (concat " return " (mapconcat 'symbol-name return-fields " "))))) + (concat " return " (mapconcat #'symbol-name return-fields " "))))) (and (> (length request) 6) (eudc-ph-do-request request) (eudc-ph-parse-query-result return-fields)))) @@ -189,7 +189,7 @@ SERVER is either a string naming the server or a list (NAME PORT)." (with-current-buffer (process-buffer process) (eudc-ph-send-command process "quit") (eudc-ph-read-response process) - (run-at-time 2 nil 'delete-process process))) + (run-at-time 2 nil #'delete-process process))) (defun eudc-ph-send-command (process command) (goto-char (point-max)) |