From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: =?UTF-8?Q?andr=C3=A9s_?= =?UTF-8?Q?ram=C3=ADrez?= Newsgroups: gmane.emacs.bugs Subject: bug#29070: 26.0.90; emacs-26.0.90 pretest Date: Mon, 30 Oct 2017 17:36:13 -0600 Organization: bien.comun.org Message-ID: <87o9oob442.fsf@chulpaca> References: <878tfso14o.fsf@chulpaca.i-did-not-set--mail-host-address--so-tickle-me> <87k1zcb5g0.fsf@users.sourceforge.net> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Trace: blaine.gmane.org 1509406637 8772 195.159.176.226 (30 Oct 2017 23:37:17 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Mon, 30 Oct 2017 23:37:17 +0000 (UTC) Cc: 29070@debbugs.gnu.org To: Noam Postavsky Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Tue Oct 31 00:37:13 2017 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1e9JcB-0001Th-MW for geb-bug-gnu-emacs@m.gmane.org; Tue, 31 Oct 2017 00:37:08 +0100 Original-Received: from localhost ([::1]:43041 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1e9JcH-0001F6-Fa for geb-bug-gnu-emacs@m.gmane.org; Mon, 30 Oct 2017 19:37:13 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:56315) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1e9JcA-0001Ey-2c for bug-gnu-emacs@gnu.org; Mon, 30 Oct 2017 19:37:08 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1e9Jc6-0004Z4-1a for bug-gnu-emacs@gnu.org; Mon, 30 Oct 2017 19:37:06 -0400 Original-Received: from debbugs.gnu.org ([208.118.235.43]:34223) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1e9Jc5-0004Yz-TD for bug-gnu-emacs@gnu.org; Mon, 30 Oct 2017 19:37:01 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1e9Jc5-0005dl-JA for bug-gnu-emacs@gnu.org; Mon, 30 Oct 2017 19:37:01 -0400 X-Loop: help-debbugs@gnu.org Resent-From: =?UTF-8?Q?andr=C3=A9s_?= =?UTF-8?Q?ram=C3=ADrez?= Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Mon, 30 Oct 2017 23:37:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 29070 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Original-Received: via spool by 29070-submit@debbugs.gnu.org id=B29070.150940659821650 (code B ref 29070); Mon, 30 Oct 2017 23:37:01 +0000 Original-Received: (at 29070) by debbugs.gnu.org; 30 Oct 2017 23:36:38 +0000 Original-Received: from localhost ([127.0.0.1]:42904 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1e9Jbi-0005d8-4t for submit@debbugs.gnu.org; Mon, 30 Oct 2017 19:36:38 -0400 Original-Received: from mail-vk0-f42.google.com ([209.85.213.42]:49710) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1e9Jbg-0005ct-6W for 29070@debbugs.gnu.org; Mon, 30 Oct 2017 19:36:36 -0400 Original-Received: by mail-vk0-f42.google.com with SMTP id t184so9243345vka.6 for <29070@debbugs.gnu.org>; Mon, 30 Oct 2017 16:36:36 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=from:to:cc:subject:in-reply-to:organization:references:date :message-id:mime-version:content-transfer-encoding; bh=FmBch2rmuYebqIzgZqK3HyEOlhvOItn03Muz9Rg80Qc=; b=MF9miShjlP4ASaxUWr1BrzowUIDcH9nS0w/4WHUSb7nF2eMSnI1Yh/LfizOLcdrYWi S3picQ5OU3ZNeD4/qMs7uk8SAfbOtcF54zdw9sFF1AeNXBwMGXP0n9qMlWJM3YHonnVl eNxGdG2+F6iYPloewpcNQjmYcI5p4nlGZKz3kD1A99iD9sdaeJVAzkRUdECmzROKLaHw ck/xBj27I1Sdvy0Wu4eeGgtt/J2NznUosMBpFcqqRThExq4RmRWutNvZVM5YXQVgaOlg JyiK4ZE+A3YK95kTBoCCQvRDca5nf2JSndqIOcdk1q38ZIpVKWFghLckLIRakt6SpdTF im5g== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:from:to:cc:subject:in-reply-to:organization :references:date:message-id:mime-version:content-transfer-encoding; bh=FmBch2rmuYebqIzgZqK3HyEOlhvOItn03Muz9Rg80Qc=; b=XfuzUKcbzNjilmylnRblGFCOdxaRGuM/Tz/Y44j1l0YucrPQhQ2vgSUoFIh/mo75G6 DDZ0VVvAxJzWmP+TWeHYWKh1lzhNNblfrl9awMrU1+mClqK37BeCShF0qmuf2PwBmWYy bJupME3FO8K2IN0uIpNsyHFZRYfzkBAAelhMr9QJTJ9Z4laFx3kT53VcGCkbW/cfH5XJ uzqrLXDjtHoCi8zX9JmrqylkvE8ezdJc3fVXnBumfPp+5nL32r7jsfPQy1zccfCxPcYX XcH5TUW5ZHdAuIbHpsWoW0yANdk0km8JEtStNcEMAWontS1eVt3s6GCvu8DUgMpGujau c0SQ== X-Gm-Message-State: AMCzsaWHQATU47l8ol1kYy62zV5v31/L1O+CZ+ZD1eGOWsfRI5YfYe5X viFI+69jUyNYuNsEK2pEAnhwnQ== X-Google-Smtp-Source: ABhQp+TQSwJUXCjkR3riw4zAOjNL69IIn+aPX91F6eTx7BVv54VrG/kZWsKsPy1FC74ycT+lIzfrAw== X-Received: by 10.31.168.66 with SMTP id r63mr20888vke.32.1509406589887; Mon, 30 Oct 2017 16:36:29 -0700 (PDT) Original-Received: from chulpaca.n800.arm.processor.fastmail.fm ([190.234.106.68]) by smtp.gmail.com with ESMTPSA id z4sm53529uah.21.2017.10.30.16.36.27 (version=TLS1_2 cipher=ECDHE-RSA-CHACHA20-POLY1305 bits=256/256); Mon, 30 Oct 2017 16:36:28 -0700 (PDT) In-Reply-To: <87k1zcb5g0.fsf@users.sourceforge.net> X-Attribution: INKA X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 208.118.235.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: "bug-gnu-emacs" Xref: news.gmane.org gmane.emacs.bugs:139228 Archived-At: On Mon, 30 Oct 2017 17:07:27 -0600, Noam Postavsky wrote: >=20 > "rrandresf@gmail.com" writes: >=20 > > (t 2 1000 1000 > > (23031 33692 430033 322000) > > (23031 41122 259655 752000) > > (23031 41122 259655 752000) > > 60 "drwx------" t 545119 28) Noam above was wrong: what I got was nil (tried it on another emacs, sorry) > Could you do M-x load-library RET server.el RET to load the source and > get a more detailed backtrace please. It should like something like > this: btw: I have done also (setq server-name "pe") --8<---------------cut here---------------start------------->8--- Debugger entered--Lisp error: (error "=E2=80=98/tmp/emacs1000=E2=80=99 is n= ot a safe directory because it is a file") signal(error ("=E2=80=98/tmp/emacs1000=E2=80=99 is not a safe directory b= ecause it is a file")) error("`%s' is not a safe directory because %s" "/tmp/emacs1000" "it is a= file") (progn (error "`%s' is not a safe directory because %s" dir unsafe)) (if unsafe (progn (error "`%s' is not a safe directory because %s" dir un= safe))) (let* ((uid (nth 2 attrs)) (w32 (eq system-type 'windows-nt)) (unsafe (co= nd ((not (eq t (car attrs))) (format "it is a %s" (if (stringp (car attrs))= "symlink" "file"))) ((and w32 (=3D 0 uid)) (display-warning 'server (forma= t-message "Using `%s' to store Emacs-server authentication files.\nDirector= ies on FAT32 filesystems are NOT secure against tampering.\nSee variable `s= erver-auth-dir' for details." (file-name-as-directory dir)) :warning) nil) = ((and (/=3D uid (user-uid)) (or (not w32) (/=3D uid 544) (/=3D (user-uid) 5= 00))) (format "it is not owned by you (owner =3D %s (%d))" (user-full-name = (user-uid)) (user-uid))) (w32 nil) ((/=3D 0 (logand 63 (file-modes dir))) (= format "it is accessible by others (%03o)" (file-modes dir))) (t nil)))) (i= f unsafe (progn (error "`%s' is not a safe directory because %s" dir unsafe= )))) dir =3D "/tmp/emacs1000" attrs =3D nil uid =3D nil w32 =3D nil unsafe =3D "it is a file" (let ((attrs (file-attributes dir 'integer))) (if attrs nil (let* ((old (= default-file-modes))) (unwind-protect (progn (progn (set-default-file-modes= 448) 448) (make-directory dir t)) (let* ((v old)) (progn (set-default-file= -modes v) v)))) (setq attrs (file-attributes dir 'integer))) (let* ((uid (n= th 2 attrs)) (w32 (eq system-type 'windows-nt)) (unsafe (cond ((not (eq t (= car attrs))) (format "it is a %s" (if (stringp (car attrs)) "symlink" "file= "))) ((and w32 (=3D 0 uid)) (display-warning 'server (format-message "Using= `%s' to store Emacs-server authentication files.\nDirectories on FAT32 fil= esystems are NOT secure against tampering.\nSee variable `server-auth-dir' = for details." (file-name-as-directory dir)) :warning) nil) ((and (/=3D uid = (user-uid)) (or (not w32) (/=3D uid 544) (/=3D (user-uid) 500))) (format "i= t is not owned by you (owner =3D %s (%d))" (user-full-name (user-uid)) (use= r-uid))) (w32 nil) ((/=3D 0 (logand 63 (file-modes dir))) (format "it is ac= cessible by others (%03o)" (file-modes dir))) (t nil)))) (if unsafe (progn = (error "`%s' is not a safe directory because %s" dir unsafe))))) dir =3D "/tmp/emacs1000" attrs =3D nil server-ensure-safe-dir("/tmp/emacs1000") (if leave-dead (progn (if (eq t leave-dead) nil (server-log (message "Ser= ver stopped"))) (setq server-process nil)) (server-ensure-safe-dir server-d= ir) (if server-process (progn (server-log (message "Restarting server")))) = (let* ((old (default-file-modes))) (unwind-protect (progn (progn (set-defau= lt-file-modes 448) 448) (add-hook 'suspend-tty-functions 'server-handle-sus= pend-tty) (add-hook 'delete-frame-functions 'server-handle-delete-frame) (a= dd-hook 'kill-emacs-query-functions 'server-kill-emacs-query-function) (add= -hook 'kill-emacs-hook 'server-force-stop t) (setq server-process (apply (f= unction make-network-process) :name server-name :server t :noquery t :senti= nel (function server-sentinel) :filter (function server-process-filter) :us= e-external-socket t :coding 'raw-text-unix (if server-use-tcp (list :family= 'ipv4 :service (or server-port t) :host (or server-host 'local) :plist '(:= authenticated nil)) (list :family 'local :service server-file :plist '(:aut= henticated t))))) (if server-process nil (error "Could not start server pro= cess")) (process-put server-process :server-file server-file) (if server-us= e-tcp (progn (let ((auth-key (server-get-auth-key))) (process-put server-pr= ocess :auth-key auth-key) (let ((temp-file server-file) (temp-buffer (get-b= uffer-create (generate-new-buffer-name " *temp file*")))) (unwind-protect (= prog1 (save-current-buffer (set-buffer temp-buffer) (set-buffer-multibyte n= il) (setq buffer-file-coding-system 'no-conversion) (insert (format-network= -address (process-contact server-process :local)) " " (number-to-string (em= acs-pid)) "\n" auth-key)) (save-current-buffer (set-buffer temp-buffer) (wr= ite-region nil nil temp-file nil 0))) (and (buffer-name temp-buffer) (kill-= buffer temp-buffer)))))))) (let* ((v old)) (progn (set-default-file-modes v= ) v))))) (let* ((server-dir (if server-use-tcp server-auth-dir server-socket-dir))= (server-file (expand-file-name server-name server-dir))) (if server-proces= s (progn (condition-case nil (progn (delete-process server-process)) (error= nil)))) (if (not (eq t (server-running-p server-name))) (condition-case ni= l (progn (let (delete-by-moving-to-trash) (delete-file server-file))) (erro= r nil)) (setq server-mode nil) (display-warning 'server (concat "Unable to = start the Emacs server.\n" (format "There is an existing Emacs server, name= d %S.\n" server-name) (substitute-command-keys "To start the server in this= Emacs process, stop the existing\nserver or call `\\[server-force-delete]'= to forcibly disconnect it.")) :warning) (setq leave-dead t)) (while server= -clients (server-delete-client (car server-clients))) (if leave-dead (progn= (if (eq t leave-dead) nil (server-log (message "Server stopped"))) (setq s= erver-process nil)) (server-ensure-safe-dir server-dir) (if server-process = (progn (server-log (message "Restarting server")))) (let* ((old (default-fi= le-modes))) (unwind-protect (progn (progn (set-default-file-modes 448) 448)= (add-hook 'suspend-tty-functions 'server-handle-suspend-tty) (add-hook 'de= lete-frame-functions 'server-handle-delete-frame) (add-hook 'kill-emacs-que= ry-functions 'server-kill-emacs-query-function) (add-hook 'kill-emacs-hook = 'server-force-stop t) (setq server-process (apply (function make-network-pr= ocess) :name server-name :server t :noquery t :sentinel (function server-se= ntinel) :filter (function server-process-filter) :use-external-socket t :co= ding 'raw-text-unix (if server-use-tcp (list :family 'ipv4 :service (or ser= ver-port t) :host (or server-host 'local) :plist '(:authenticated nil)) (li= st :family 'local :service server-file :plist '(:authenticated t))))) (if s= erver-process nil (error "Could not start server process")) (process-put se= rver-process :server-file server-file) (if server-use-tcp (progn (let ((aut= h-key (server-get-auth-key))) (process-put server-process :auth-key auth-ke= y) (let ((temp-file server-file) (temp-buffer (get-buffer-create (generate-= new-buffer-name " *temp file*")))) (unwind-protect (prog1 (save-current-buf= fer (set-buffer temp-buffer) (set-buffer-multibyte nil) (setq buffer-file-c= oding-system 'no-conversion) (insert (format-network-address (process-conta= ct server-process :local)) " " (number-to-string (emacs-pid)) "\n" auth-key= )) (save-current-buffer (set-buffer temp-buffer) (write-region nil nil temp= -file nil 0))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))= ))) (let* ((v old)) (progn (set-default-file-modes v) v)))))) leave-dead =3D nil inhibit-prompt =3D nil server-dir =3D "/tmp/emacs1000" server-file =3D "/tmp/emacs1000/pe" (progn (let* ((server-dir (if server-use-tcp server-auth-dir server-socke= t-dir)) (server-file (expand-file-name server-name server-dir))) (if server= -process (progn (condition-case nil (progn (delete-process server-process))= (error nil)))) (if (not (eq t (server-running-p server-name))) (condition-= case nil (progn (let (delete-by-moving-to-trash) (delete-file server-file))= ) (error nil)) (setq server-mode nil) (display-warning 'server (concat "Una= ble to start the Emacs server.\n" (format "There is an existing Emacs serve= r, named %S.\n" server-name) (substitute-command-keys "To start the server = in this Emacs process, stop the existing\nserver or call `\\[server-force-d= elete]' to forcibly disconnect it.")) :warning) (setq leave-dead t)) (while= server-clients (server-delete-client (car server-clients))) (if leave-dead= (progn (if (eq t leave-dead) nil (server-log (message "Server stopped"))) = (setq server-process nil)) (server-ensure-safe-dir server-dir) (if server-p= rocess (progn (server-log (message "Restarting server")))) (let* ((old (def= ault-file-modes))) (unwind-protect (progn (progn (set-default-file-modes 44= 8) 448) (add-hook 'suspend-tty-functions 'server-handle-suspend-tty) (add-h= ook 'delete-frame-functions 'server-handle-delete-frame) (add-hook 'kill-em= acs-query-functions 'server-kill-emacs-query-function) (add-hook 'kill-emac= s-hook 'server-force-stop t) (setq server-process (apply (function make-net= work-process) :name server-name :server t :noquery t :sentinel (function se= rver-sentinel) :filter (function server-process-filter) :use-external-socke= t t :coding 'raw-text-unix (if server-use-tcp (list :family 'ipv4 :service = (or server-port t) :host (or server-host 'local) :plist '(:authenticated ni= l)) (list :family 'local :service server-file :plist '(:authenticated t))))= ) (if server-process nil (error "Could not start server process")) (process= -put server-process :server-file server-file) (if server-use-tcp (progn (le= t ((auth-key (server-get-auth-key))) (process-put server-process :auth-key = auth-key) (let ((temp-file server-file) (temp-buffer (get-buffer-create (ge= nerate-new-buffer-name " *temp file*")))) (unwind-protect (prog1 (save-curr= ent-buffer (set-buffer temp-buffer) (set-buffer-multibyte nil) (setq buffer= -file-coding-system 'no-conversion) (insert (format-network-address (proces= s-contact server-process :local)) " " (number-to-string (emacs-pid)) "\n" a= uth-key)) (save-current-buffer (set-buffer temp-buffer) (write-region nil n= il temp-file nil 0))) (and (buffer-name temp-buffer) (kill-buffer temp-buff= er)))))))) (let* ((v old)) (progn (set-default-file-modes v) v))))))) [no locals] (if (or (not server-clients) (cond ((and (daemonp) (null (cdr (frame-list= ))) (eq (selected-frame) terminal-frame)) leave-dead) (inhibit-prompt t) (t= (yes-or-no-p "The current server still has clients; delete them? ")))) (pr= ogn (let* ((server-dir (if server-use-tcp server-auth-dir server-socket-dir= )) (server-file (expand-file-name server-name server-dir))) (if server-proc= ess (progn (condition-case nil (progn (delete-process server-process)) (err= or nil)))) (if (not (eq t (server-running-p server-name))) (condition-case = nil (progn (let (delete-by-moving-to-trash) (delete-file server-file))) (er= ror nil)) (setq server-mode nil) (display-warning 'server (concat "Unable t= o start the Emacs server.\n" (format "There is an existing Emacs server, na= med %S.\n" server-name) (substitute-command-keys "To start the server in th= is Emacs process, stop the existing\nserver or call `\\[server-force-delete= ]' to forcibly disconnect it.")) :warning) (setq leave-dead t)) (while serv= er-clients (server-delete-client (car server-clients))) (if leave-dead (pro= gn (if (eq t leave-dead) nil (server-log (message "Server stopped"))) (setq= server-process nil)) (server-ensure-safe-dir server-dir) (if server-proces= s (progn (server-log (message "Restarting server")))) (let* ((old (default-= file-modes))) (unwind-protect (progn (progn (set-default-file-modes 448) 44= 8) (add-hook 'suspend-tty-functions 'server-handle-suspend-tty) (add-hook '= delete-frame-functions 'server-handle-delete-frame) (add-hook 'kill-emacs-q= uery-functions 'server-kill-emacs-query-function) (add-hook 'kill-emacs-hoo= k 'server-force-stop t) (setq server-process (apply (function make-network-= process) :name server-name :server t :noquery t :sentinel (function server-= sentinel) :filter (function server-process-filter) :use-external-socket t := coding 'raw-text-unix (if server-use-tcp (list :family 'ipv4 :service (or s= erver-port t) :host (or server-host 'local) :plist '(:authenticated nil)) (= list :family 'local :service server-file :plist '(:authenticated t))))) (if= server-process nil (error "Could not start server process")) (process-put = server-process :server-file server-file) (if server-use-tcp (progn (let ((a= uth-key (server-get-auth-key))) (process-put server-process :auth-key auth-= key) (let ((temp-file server-file) (temp-buffer (get-buffer-create (generat= e-new-buffer-name " *temp file*")))) (unwind-protect (prog1 (save-current-b= uffer (set-buffer temp-buffer) (set-buffer-multibyte nil) (setq buffer-file= -coding-system 'no-conversion) (insert (format-network-address (process-con= tact server-process :local)) " " (number-to-string (emacs-pid)) "\n" auth-k= ey)) (save-current-buffer (set-buffer temp-buffer) (write-region nil nil te= mp-file nil 0))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))= ))))) (let* ((v old)) (progn (set-default-file-modes v) v)))))))) server-start(nil) funcall-interactively(server-start nil) call-interactively(server-start record nil) command-execute(server-start record) execute-extended-command(nil "server-start" "server-start") funcall-interactively(execute-extended-command nil "server-start" "server= -start") call-interactively(execute-extended-command nil nil) command-execute(execute-extended-command) --8<---------------cut here---------------end--------------->8---