comparison lisp/emacs-lisp/shadow.el @ 110797:2343b29e1e8d

Add a shadow-mode for load-path shadows. * lisp/emacs-lisp/shadow.el (shadow-font-lock-keywords): New variable. (shadow-mode): New mode. (shadow-find-file): New button. (list-load-path-shadows): Use shadow-mode and buttons.

110796:4901ee6d9e5a

		 ;; As a quick test, avoiding spawning a process, compare file
		 ;; sizes.
		 (and (= (nth 7 (file-attributes f1))
			 (nth 7 (file-attributes f2)))
		      (eq 0 (call-process "cmp" nil nil nil "-s" f1 f2))))))))

;;;###autoload
(defun list-load-path-shadows (&optional stringp)
  "Display a list of Emacs Lisp files that shadow other files.

	  (if (called-interactively-p 'interactive)
	      ;; We are interactive.
	      ;; Create the *Shadows* buffer and display shadowings there.
	      (let ((string (buffer-string)))
		(with-current-buffer (get-buffer-create "*Shadows*")
                  (fundamental-mode)    ;run after-change-major-mode-hook.
		  (display-buffer (current-buffer))
		  (setq buffer-undo-list t
			buffer-read-only nil)
		  (erase-buffer)
		  (insert string)
		  (insert msg "\n")
		  (setq buffer-read-only t)))
	    ;; We are non-interactive, print shadows via message.
	    (unless (zerop n)
	      (message "This site has duplicate Lisp libraries with the same name.
If a locally-installed Lisp library overrides a library in the Emacs release,
that can cause trouble, and you should probably remove the locally-installed

		(forward-line 1))
	      (message "%s" msg))))))))

(provide 'shadow)

;; arch-tag: 0480e8a7-62ed-4a12-a9f6-f44ded9b0830
;;; shadow.el ends here

110797:2343b29e1e8d

		 ;; As a quick test, avoiding spawning a process, compare file
		 ;; sizes.
		 (and (= (nth 7 (file-attributes f1))
			 (nth 7 (file-attributes f2)))
		      (eq 0 (call-process "cmp" nil nil nil "-s" f1 f2))))))))

(defvar shadow-font-lock-keywords
  `((,(format "hides \\(%s.*\\)"
	      (file-name-directory (locate-library "simple.el")))
     . (1 font-lock-warning-face)))
  "Keywords to highlight in `shadow-mode'.")

(define-derived-mode shadow-mode fundamental-mode "Shadow"
  "Major mode for load-path shadows buffer."
  (set (make-local-variable 'font-lock-defaults)
       '((shadow-font-lock-keywords)))
  (setq buffer-undo-list t
	buffer-read-only t))

;; TODO use text-properties instead, a la dired.
(require 'button)
(define-button-type 'shadow-find-file
  'follow-link t
;;  'face 'default
  'action (lambda (button)
	    (let ((file (concat (button-get button 'shadow-file) ".el")))
	      (or (file-exists-p file)
		  (setq file (concat file ".gz")))
	      (if (file-readable-p file)
		  (pop-to-buffer (find-file-noselect file))
		(error "Cannot read file"))))
  'help-echo "mouse-2, RET: find this file")


;;;###autoload
(defun list-load-path-shadows (&optional stringp)
  "Display a list of Emacs Lisp files that shadow other files.

	  (if (called-interactively-p 'interactive)
	      ;; We are interactive.
	      ;; Create the *Shadows* buffer and display shadowings there.
	      (let ((string (buffer-string)))
		(with-current-buffer (get-buffer-create "*Shadows*")
		  (display-buffer (current-buffer))
		  (shadow-mode)	    ; run after-change-major-mode-hook
		  (let ((inhibit-read-only t))
		    (erase-buffer)
		    (insert string)
		    (insert msg "\n")
		    (while (re-search-backward "\\(^.*\\) hides \\(.*$\\)"
					       nil t)
		      (dotimes (i 2)
			(make-button (match-beginning (1+ i))
				     (match-end (1+ i))
				     'type 'shadow-find-file 'shadow-file
				     (match-string (1+ i)))))
		    (goto-char (point-max)))))
	    ;; We are non-interactive, print shadows via message.
	    (unless (zerop n)
	      (message "This site has duplicate Lisp libraries with the same name.
If a locally-installed Lisp library overrides a library in the Emacs release,
that can cause trouble, and you should probably remove the locally-installed

		(forward-line 1))
	      (message "%s" msg))))))))

(provide 'shadow)

;;; shadow.el ends here