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

[Angelo Graziosi]

> Il 6 dicembre 2018 alle 13.57 Eli Zaretskii <address@hidden> 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) 
(member 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-buffer)))
  (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: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")))
  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:d3: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...";)