From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: Emanuel Berg Newsgroups: gmane.emacs.help Subject: Re: Using "Emacs Configure" **and** modifying .emacs Date: Tue, 15 Aug 2017 04:20:26 +0200 Message-ID: <86fuctr2qd.fsf@zoho.com> References: <1502373086.1171866.1069247696.71F9FED4@webmail.messagingengine.com> <8660dvuzsr.fsf@zoho.com> <1502436066.2568371.1070085968.1D25E0E7@webmail.messagingengine.com> <87tw1ekxgo.fsf@127.0.0.1> <867ey9sva2.fsf@zoho.com> <86k226rtwd.fsf@zoho.com> <86d17yrp6u.fsf@zoho.com> <86k225r84b.fsf@zoho.com> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: blaine.gmane.org 1502763675 2912 195.159.176.226 (15 Aug 2017 02:21:15 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Tue, 15 Aug 2017 02:21:15 +0000 (UTC) User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.4 (gnu/linux) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Tue Aug 15 04:21:11 2017 Return-path: Envelope-to: geh-help-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 1dhRTf-0000KI-Ep for geh-help-gnu-emacs@m.gmane.org; Tue, 15 Aug 2017 04:21:07 +0200 Original-Received: from localhost ([::1]:51883 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dhRTl-0002Uq-Pq for geh-help-gnu-emacs@m.gmane.org; Mon, 14 Aug 2017 22:21:13 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:41764) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dhRTE-0002Te-QR for help-gnu-emacs@gnu.org; Mon, 14 Aug 2017 22:20:41 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dhRTA-00045R-PB for help-gnu-emacs@gnu.org; Mon, 14 Aug 2017 22:20:40 -0400 Original-Received: from [195.159.176.226] (port=36432 helo=blaine.gmane.org) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1dhRTA-000436-I9 for help-gnu-emacs@gnu.org; Mon, 14 Aug 2017 22:20:36 -0400 Original-Received: from list by blaine.gmane.org with local (Exim 4.84_2) (envelope-from ) id 1dhRT1-0006WX-VU for help-gnu-emacs@gnu.org; Tue, 15 Aug 2017 04:20:27 +0200 X-Injected-Via-Gmane: http://gmane.org/ Mail-Followup-To: help-gnu-emacs@gnu.org Original-Lines: 43 Original-X-Complaints-To: usenet@blaine.gmane.org Mail-Copies-To: never Cancel-Lock: sha1:+reNYBdriY6TvN3D1Q6vzJYRiNQ= X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] [fuzzy] X-Received-From: 195.159.176.226 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.21 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Original-Sender: "help-gnu-emacs" Xref: news.gmane.org gmane.emacs.help:114035 Archived-At: > Perhaps I should add that (`custom-set') to > mine as well... ;; The result: ;; erc-my.el, line 9: erc-user-full-name ;; erc-my.el, line 55: erc-header-line-format ;; mode-line.el, line 6: column-number-mode ;; mode-line.el, line 7: line-number-mode ;; spell-new.el, line 5: ispell-program-name ;; w3m-tabs.el, line 5: w3m-tab-width ;; 6 hits! :) (require 'search-regexp-in-files) ; http://user.it.uu.se/~embe8573/emacs-init/search-regexp-in-files.el (defun find-custom-set-vars (&optional buffer) (interactive) (let ((bfr (or buffer (current-buffer))) (out-bfr (get-buffer-create "*CustomSetVariables*")) ) (with-current-buffer bfr (save-excursion (goto-char (point-min)) (while (re-search-forward "([[:space:]]*set[fq][[:space:]]*" nil t) (let ((var (variable-at-point t)) ; ANY-SYMBOL (line (line-number-at-pos)) ) (when (and (custom-variable-p var) (get var 'custom-set) ) (with-current-buffer out-bfr (insert (format "%s, line %s: %s\n" bfr line var))) ))))) (pop-to-buffer out-bfr) )) (defun fcsv-check-all-elisp () (let ((fs (files-as-list (format "%s%s" "~/.emacs.d/emacs-init/" "**/*.el")))) (dolist (f fs) (find-custom-set-vars (find-file-noselect f))))) ;; (fcsv-check-all-elisp) -- underground experts united http://user.it.uu.se/~embe8573