Sharp-quote apply and mapcar functions

riscy · dakra · commit ba9af8ce3025 · 2019-10-21T10:11:39.000+02:00
diff --git a/pythonic.el b/pythonic.el
@@ -236,7 +236,7 @@ print(json.dumps(yaml.safe_load(open(sys.argv[-1], 'r'))))
                              (assoc
                               (if pythonic-docker-compose-service-name
                                   pythonic-docker-compose-service-name
-                                (completing-read "Service: " (mapcar 'car volumes) nil t))
+                                (completing-read "Service: " (mapcar #'car volumes) nil t))
                               volumes)
                          (car volumes)))
                (service (car volume))
@@ -266,7 +266,7 @@ arguments passed to `call-process'. CWD will be working directory
 for running process."
   (let ((default-directory (pythonic-aliased-path (or cwd default-directory))))
     (python-shell-with-environment
-      (apply 'process-file pythonic-interpreter file buffer display args))))
+      (apply #'process-file pythonic-interpreter file buffer display args))))
 
 (cl-defun pythonic-start-process (&key process buffer args cwd filter sentinel (query-on-exit t))
   "Pythonic wrapper around `start-process'.
@@ -280,7 +280,7 @@ function if necessary.  QUERY-ON-EXIT will be corresponding
 process flag."
   (let ((default-directory (pythonic-aliased-path (or cwd default-directory))))
     (python-shell-with-environment
-      (let ((process (apply 'start-file-process process buffer pythonic-interpreter args)))
+      (let ((process (apply #'start-file-process process buffer pythonic-interpreter args)))
         (when filter
           (set-process-filter process filter))
         (when sentinel
