Re: Using "Emacs Configure" **and** modifying .emacs

[Emanuel Berg]

> 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