From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: npostavs@users.sourceforge.net Newsgroups: gmane.emacs.bugs Subject: bug#26412: 26.0.50; Minibuffer completion for "C-h f" probes unrelated stuff Date: Tue, 11 Apr 2017 10:13:34 -0400 Message-ID: <87bms3t4kx.fsf@users.sourceforge.net> References: <83zifqkjsh.fsf@gnu.org> <87shlhu740.fsf@users.sourceforge.net> <87efx0tmyy.fsf@users.sourceforge.net> <838tn8l74p.fsf@gnu.org> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: blaine.gmane.org 1491919994 4136 195.159.176.226 (11 Apr 2017 14:13:14 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Tue, 11 Apr 2017 14:13:14 +0000 (UTC) User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/25.2 (gnu/linux) Cc: 26412@debbugs.gnu.org To: Eli Zaretskii Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Tue Apr 11 16:13:09 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 1cxwXb-0000uW-BB for geb-bug-gnu-emacs@m.gmane.org; Tue, 11 Apr 2017 16:13:07 +0200 Original-Received: from localhost ([::1]:39505 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1cxwXf-00061a-G1 for geb-bug-gnu-emacs@m.gmane.org; Tue, 11 Apr 2017 10:13:11 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:41571) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1cxwXZ-00061U-UX for bug-gnu-emacs@gnu.org; Tue, 11 Apr 2017 10:13:07 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1cxwXW-0006vC-Mn for bug-gnu-emacs@gnu.org; Tue, 11 Apr 2017 10:13:05 -0400 Original-Received: from debbugs.gnu.org ([208.118.235.43]:44904) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1cxwXW-0006v0-J2 for bug-gnu-emacs@gnu.org; Tue, 11 Apr 2017 10:13:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1cxwXW-0000cb-8i for bug-gnu-emacs@gnu.org; Tue, 11 Apr 2017 10:13:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: npostavs@users.sourceforge.net Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Tue, 11 Apr 2017 14:13:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 26412 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Original-Received: via spool by 26412-submit@debbugs.gnu.org id=B26412.14919199362330 (code B ref 26412); Tue, 11 Apr 2017 14:13:02 +0000 Original-Received: (at 26412) by debbugs.gnu.org; 11 Apr 2017 14:12:16 +0000 Original-Received: from localhost ([127.0.0.1]:43103 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1cxwWm-0000bV-HD for submit@debbugs.gnu.org; Tue, 11 Apr 2017 10:12:16 -0400 Original-Received: from mail-io0-f177.google.com ([209.85.223.177]:34343) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1cxwWk-0000bG-QP for 26412@debbugs.gnu.org; Tue, 11 Apr 2017 10:12:15 -0400 Original-Received: by mail-io0-f177.google.com with SMTP id a103so3359138ioj.1 for <26412@debbugs.gnu.org>; Tue, 11 Apr 2017 07:12:14 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=sender:from:to:cc:subject:references:date:in-reply-to:message-id :user-agent:mime-version; bh=JyPtKf4JQfN5lCKbLLktpUBhSJXHqPIeLkSDjvVmQIY=; b=fJQPrSFDnzihpuixtrX2WfLBxQ37kDQMsSkn22rVtdFPoIHl38sl73ETM00OvRvKRe qLnoI+5l9r1A89o6pUv0i+z9wp1Duw/mYl5cz1wfJrSETkY0keCWnRKKQt/4ExyKJghg HnvBpa6pMxGlJkujVqwcL4Uks2mSLQ5w2APknjF/o6IatE2+P+cvzmVjlUru5orD99di g8J2gU38ZhPL9zFtHVOsH1eDHvu+1qruA8WilSN08kgGMk4JrSg9sUD2dRUZ3GaxzaPq p36Z5wrWahAiH3CJ11TEiE2AyHv5eHw/TPQRGxGTYLj6zLhtiqagMlYT7PquJwhGG1BL uuSA== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:sender:from:to:cc:subject:references:date :in-reply-to:message-id:user-agent:mime-version; bh=JyPtKf4JQfN5lCKbLLktpUBhSJXHqPIeLkSDjvVmQIY=; b=gjaAz3pSnRNDt9FnuS/as00Kpv4bZh8zXunV8iodOqEu5vCnoCazbvgdbw5B1AkNL0 x1eiZ7+LFEzv3RBDI6AXdLp/VgCZfacnq5MghSQH95+DHm7ku9piIm02kYYLXtIBANKt P5CoGyOU7ZYOwzEi/Hh4QI/wd188rwqZdEuYCb4nczUwKzLd2OfGNplgE5LBsFk/q0yz 9lOqAhj52ePt9Ps15w9HJDfv9iFumsSFJtQJqohDtkCfTyIZoS/fIpSpjZove6ZP0Qab ro2iPiNEUA1ngPemndYmWtbU+pKul6mYEPgqM/VIzTtQ3uhrmrwvEVfx8Ti02apwxQDV AtUA== X-Gm-Message-State: AFeK/H3NXGemLsQfpHUXCgGRNVBk6wpaKpRSbbg/SYxSJes0WpJ2K+6fwbSrvO3Xnoyxew== X-Received: by 10.107.30.3 with SMTP id e3mr54083013ioe.12.1491919927378; Tue, 11 Apr 2017 07:12:07 -0700 (PDT) Original-Received: from zony ([45.2.7.65]) by smtp.googlemail.com with ESMTPSA id v23sm947859ite.6.2017.04.11.07.12.06 (version=TLS1_2 cipher=ECDHE-RSA-CHACHA20-POLY1305 bits=256/256); Tue, 11 Apr 2017 07:12:06 -0700 (PDT) In-Reply-To: <838tn8l74p.fsf@gnu.org> (Eli Zaretskii's message of "Mon, 10 Apr 2017 16:33:26 +0300") 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:131470 Archived-At: Eli Zaretskii writes: >> Which comes from these macros in lisp/mh/mh-acros.el: >> >> (defmacro defun-mh (name function arg-list &rest body) >> >> (defmacro defmacro-mh (name macro arg-list &rest body) > > Can we modify autoloads such that "def" is not collected here? It > could collect defun-mh and defmacro-mh instead, couldn't it? This seems to work. --- i/lisp/emacs-lisp/autoload.el +++ w/lisp/emacs-lisp/autoload.el @@ -546,9 +546,10 @@ autoload--make-defs-autoload ;; "cc-helper" and "c-mode", you'll get "c" in the root prefixes. (dolist (pair (prog1 prefixes (setq prefixes nil))) (let ((s (car pair))) - (if (or (> (length s) 2) ;Long enough! - (string-match ".[[:punct:]]\\'" s) ;A real (tho short) prefix? - (radix-tree-lookup (cdr pair) "")) ;Nothing to expand! + (if (and (not (string= "def" s)) ; Don't use "def" in deffoo-pkg-thing. + (or (> (length s) 2) ;Long enough! + (string-match ".[[:punct:]]\\'" s) ;A real (tho short) prefix? + (radix-tree-lookup (cdr pair) ""))) ;Nothing to expand! (push pair prefixes) ;Keep it as is. (radix-tree-iter-subtrees (cdr pair) (lambda (prefix subtree) Here is the resulting diff for loaddefs: --- loaddefs.el 2017-04-10 13:26:10.404737000 -0400 +++ loaddefs-nodef.el 2017-04-10 13:24:32.000000000 -0400 @@ -4732,7 +4732,7 @@ ;;;### (autoloads nil "cl" "emacs-lisp/cl.el" (0 0 0 0)) ;;; Generated autoloads from emacs-lisp/cl.el -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "cl" '("cl-" "def" "lexical-let" "labels" "flet"))) +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "cl" '("cl-" "defsetf" "define-" "lexical-let" "labels" "flet"))) ;;;*** @@ -20261,7 +20261,7 @@ ;;;### (autoloads nil "mh-acros" "mh-e/mh-acros.el" (0 0 0 0)) ;;; Generated autoloads from mh-e/mh-acros.el -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "mh-acros" '("mh-" "with-mh-folder-updating" "def"))) +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "mh-acros" '("mh-" "with-mh-folder-updating" "defun-mh" "defmacro-mh"))) ;;;*** @@ -20393,7 +20393,7 @@ \(fn)" t nil) -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "mh-e" '("mh-" "def"))) +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "mh-e" '("mh-" "defgroup-mh" "defcustom-mh" "defface-mh"))) ;;;*** @@ -22035,7 +22035,7 @@ ;;;### (autoloads nil "nnoo" "gnus/nnoo.el" (0 0 0 0)) ;;; Generated autoloads from gnus/nnoo.el -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "nnoo" '("nnoo-" "def"))) +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "nnoo" '("nnoo-" "defvoo" "deffoo"))) ;;;***