Re: Current master does not work with sr-speedbar package (W64 build)

[Angelo Graziosi <angelo.g0@libero.it>]

> Il 6 dicembre 2018 alle 13.57 Eli Zaretskii <eliz@gnu.org> ha scritto:
> 
> Type "M-x set-variable RET debug-on-error RET t RET", then do the steps needed to trigger the problem.  Emacs should display a buffer with Lisp backtrace; post that here.
> 

Starting Emacs without initialization file/directory and with Options - Manage Emacs Packages.

Debugger entered--Lisp error: (file-error "Setting current directory" #("Permission denied" 0 17 (charset windows-1252)) "c:/msys64/tmp/emacs-master/src/")
  signal(file-error ("Setting current directory" #("Permission denied" 0 17 (charset windows-1252)) "c:/msys64/tmp/emacs-master/src/"))
  (if nil nil (signal (car err) (cdr err)))
  (condition-case err (progn (let* ((er (and t (plist-get status :error)))) (if er (error "Error retrieving: %s %S" url er))) (save-current-buffer (set-buffer b-sym) (goto-char (point-min)) (if (search-forward-regexp "^\15?\n\15?" nil 'noerror) nil (error "Error retrieving: %s %S" url "incomprehensible buffer"))) (url-insert-buffer-contents b-sym url) (kill-buffer b-sym) (goto-char (point-min)) t) (error (package--update-downloads-in-progress archive) (if nil nil (signal (car err) (cdr err)))))
  (if (condition-case err (progn (let* ((er (and t (plist-get status :error)))) (if er (error "Error retrieving: %s %S" url er))) (save-current-buffer (set-buffer b-sym) (goto-char (point-min)) (if (search-forward-regexp "^\15?\n\15?" nil 'noerror) nil (error "Error retrieving: %s %S" url "incomprehensible buffer"))) (url-insert-buffer-contents b-sym url) (kill-buffer b-sym) (goto-char (point-min)) t) (error (package--update-downloads-in-progress archive) (if nil nil (signal (car err) (cdr err))))) (progn (let* ((location (cdr archive)) (name (car archive)) (content (buffer-string)) (dir (expand-file-name (concat "archives/" name) package-user-dir)) (local-file (expand-file-name file dir))) (if (listp (read content)) (progn (make-directory dir t) (if (or (not package-check-signature) (memb
 er name package-unsigned-archives)) (progn (write-region content nil local-file nil ...) (package--update-downloads-in-progress archive)) (package--check-signature location file content async #'... #'...)))))))
  (progn (if (condition-case err (progn (let* ((er (and t ...))) (if er (error "Error retrieving: %s %S" url er))) (save-current-buffer (set-buffer b-sym) (goto-char (point-min)) (if (search-forward-regexp "^\15?\n\15?" nil 'noerror) nil (error "Error retrieving: %s %S" url "incomprehensible buffer"))) (url-insert-buffer-contents b-sym url) (kill-buffer b-sym) (goto-char (point-min)) t) (error (package--update-downloads-in-progress archive) (if nil nil (signal (car err) (cdr err))))) (progn (let* ((location (cdr archive)) (name (car archive)) (content (buffer-string)) (dir (expand-file-name (concat "archives/" name) package-user-dir)) (local-file (expand-file-name file dir))) (if (listp (read content)) (progn (make-directory dir t) (if (or ... ...) (progn ... ...) (package--check-signature
  location file content async ... ...))))))))
  (unwind-protect (progn (if (condition-case err (progn (let* ((er ...)) (if er (error "Error retrieving: %s %S" url er))) (save-current-buffer (set-buffer b-sym) (goto-char (point-min)) (if (search-forward-regexp "^\15?\n\15?" nil ...) nil (error "Error retrieving: %s %S" url "incomprehensible buffer"))) (url-insert-buffer-contents b-sym url) (kill-buffer b-sym) (goto-char (point-min)) t) (error (package--update-downloads-in-progress archive) (if nil nil (signal (car err) (cdr err))))) (progn (let* ((location (cdr archive)) (name (car archive)) (content (buffer-string)) (dir (expand-file-name ... package-user-dir)) (local-file (expand-file-name file dir))) (if (listp (read content)) (progn (make-directory dir t) (if ... ... ...))))))) (and (buffer-name temp-buffer) (kill-buffer temp-buffe
 r)))
  (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (if (condition-case err (progn (let* (...) (if er ...)) (save-current-buffer (set-buffer b-sym) (goto-char ...) (if ... nil ...)) (url-insert-buffer-contents b-sym url) (kill-buffer b-sym) (goto-char (point-min)) t) (error (package--update-downloads-in-progress archive) (if nil nil (signal ... ...)))) (progn (let* ((location ...) (name ...) (content ...) (dir ...) (local-file ...)) (if (listp ...) (progn ... ...)))))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))
  (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (if (condition-case err (progn (let* ... ...) (save-current-buffer ... ... ...) (url-insert-buffer-contents b-sym url) (kill-buffer b-sym) (goto-char ...) t) (error (package--update-downloads-in-progress archive) (if nil nil ...))) (progn (let* (... ... ... ... ...) (if ... ...))))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))
  (let ((b-sym (current-buffer))) (require 'url-handlers) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (if (condition-case err (progn ... ... ... ... ... t) (error ... ...)) (progn (let* ... ...)))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))))
  (closure ((temp-buffer . #<killed buffer>) (url . "https://elpa.gnu.org/packages/archive-contents") (url-1 . "https://elpa.gnu.org/packages/") (async . t) (file . "archive-contents") (archive "gnu" . "https://elpa.gnu.org/packages/") package-quickstart-file cl-struct-package--ac-desc-tags warning-minimum-level autoload-timestamps generated-autoload-file tar-parse-info Info-directory-list cl-struct-package--bi-desc-tags cl-struct-package-desc-tags t) (status) (let ((b-sym (current-buffer))) (require 'url-handlers) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (if ... ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))))((:peer (:certificates ((:version 3 :serial-number "03:e9:84:8e:54:a5:e0:73:ad:eb
 :85:06:03:50:c3:79:f2..." :issuer "C=US,O=Let's Encrypt,CN=Let's Encrypt Authority X3" :valid-from "2018-11-27" :valid-to "2019-02-25" :subject "CN=elpa.gnu.org" :public-key-algorithm "RSA" :certificate-security-level "Medium" :signature-algorithm "RSA-SHA256" :public-key-id "sha1:54:a6:1b:e5:6d:9f:62:a6:11:ec:90:83:af:3f:28:..." :certificate-id "sha1:a0:a4:2a:bc:a4:d3:e2:90:1b:e3:23:a6:8f:e3:85:...") (:version 3 :serial-number "0a:01:41:42:00:00:01:53:85:73:6a:0b:85:ec:a7:08" :issuer "O=Digital Signature Trust Co.,CN=DST Root CA X3" :valid-from "2016-03-17" :valid-to "2021-03-17" :subject "C=US,O=Let's Encrypt,CN=Let's Encrypt Authority X3" :public-key-algorithm "RSA" :certificate-security-level "Medium" :signature-algorithm "RSA-SHA256" :public-key-id "sha1:da:9b:52:a8:77:11:69:d3:13:1
 8:a5:67:e1:dc:9b:..." :certificate-id "sha1:e6:a3:b4:5b:06:2d:50:9b:33:82:28:2d:19:6e:fe:...")) :certificate (:version 3 :serial-number "03:e9:84:8e:54:a5:e0:73:ad:eb:85:06:03:50:c3:79:f2..." :issuer "C=US,O=Let's Encrypt,CN=Let's Encrypt Authority X3" :valid-from "2018-11-27" :valid-to "2019-02-25" :subject "CN=elpa.gnu.org" :public-key-algorithm "RSA" :certificate-security-level "Medium" :signature-algorithm "RSA-SHA256" :public-key-id "sha1:54:a6:1b:e5:6d:9f:62:a6:11:ec:90:83:af:3f:28:..." :certificate-id "sha1:a0:a4:2a:bc:a4:d3:e2:90:1b:e3:23:a6:8f:e3:85:...") :key-exchange "ECDHE-RSA" :protocol "TLS1.2" :cipher "AES-256-GCM" :mac "AEAD")))
  apply((closure ((temp-buffer . #<killed buffer>) (url . "https://elpa.gnu.org/packages/archive-contents") (url-1 . "https://elpa.gnu.org/packages/") (async . t) (file . "archive-contents") (archive "gnu" . "https://elpa.gnu.org/packages/") package-quickstart-file cl-struct-package--ac-desc-tags warning-minimum-level autoload-timestamps generated-autoload-file tar-parse-info Info-directory-list cl-struct-package--bi-desc-tags cl-struct-package-desc-tags t) (status) (let ((b-sym (current-buffer))) (require 'url-handlers) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (if ... ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))))) (:peer (:certificates ((:version 3 :serial-number "03:e9:84:8e:54:a5:e0:73
 :ad:eb:85:06:03:50:c3:79:f2..." :issuer "C=US,O=Let's Encrypt,CN=Let's Encrypt Authority X3" :valid-from "2018-11-27" :valid-to "2019-02-25" :subject "CN=elpa.gnu.org" :public-key-algorithm "RSA" :certificate-security-level "Medium" :signature-algorithm "RSA-SHA256" :public-key-id "sha1:54:a6:1b:e5:6d:9f:62:a6:11:ec:90:83:af:3f:28:..." :certificate-id "sha1:a0:a4:2a:bc:a4:d3:e2:90:1b:e3:23:a6:8f:e3:85:...") (:version 3 :serial-number "0a:01:41:42:00:00:01:53:85:73:6a:0b:85:ec:a7:08" :issuer "O=Digital Signature Trust Co.,CN=DST Root CA X3" :valid-from "2016-03-17" :valid-to "2021-03-17" :subject "C=US,O=Let's Encrypt,CN=Let's Encrypt Authority X3" :public-key-algorithm "RSA" :certificate-security-level "Medium" :signature-algorithm "RSA-SHA256" :public-key-id "sha1:da:9b:52:a8:77:11:69:d
 3:13:18:a5:67:e1:dc:9b:..." :certificate-id "sha1:e6:a3:b4:5b:06:2d:50:9b:33:82:28:2d:19:6e:fe:...")) :certificate (:version 3 :serial-number "03:e9:84:8e:54:a5:e0:73:ad:eb:85:06:03:50:c3:79:f2..." :issuer "C=US,O=Let's Encrypt,CN=Let's Encrypt Authority X3" :valid-from "2018-11-27" :valid-to "2019-02-25" :subject "CN=elpa.gnu.org" :public-key-algorithm "RSA" :certificate-security-level "Medium" :signature-algorithm "RSA-SHA256" :public-key-id "sha1:54:a6:1b:e5:6d:9f:62:a6:11:ec:90:83:af:3f:28:..." :certificate-id "sha1:a0:a4:2a:bc:a4:d3:e2:90:1b:e3:23:a6:8f:e3:85:...") :key-exchange "ECDHE-RSA" :protocol "TLS1.2" :cipher "AES-256-GCM" :mac "AEAD")))
  url-http-activate-callback()
  url-http-content-length-after-change-function(37118 40106 2988)
  url-http-generic-filter(#<process elpa.gnu.org> "ypermedia\")\n       (:url . \"http://elpa.gnu.org/pa...")