comparison lisp/emacs-lisp/shadow.el @ 110807:3c97e9b7b34f

Rename some more shadow.el stuff. * lisp/emacs-lisp/shadow.el (load-path-shadows-font-lock-keywords) (load-path-shadows-find-file): Rename variable and button. (list-load-path-shadows): Update button caller.

110806:62865a8e7f58

		 ;; 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 `load-path-shadows-mode'.")

(define-derived-mode load-path-shadows-mode fundamental-mode "LP-Shadows"
  "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)

		    (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.

110807:3c97e9b7b34f

		 ;; sizes.
		 (and (= (nth 7 (file-attributes f1))
			 (nth 7 (file-attributes f2)))
		      (eq 0 (call-process "cmp" nil nil nil "-s" f1 f2))))))))

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

(define-derived-mode load-path-shadows-mode fundamental-mode "LP-Shadows"
  "Major mode for load-path shadows buffer."
  (set (make-local-variable 'font-lock-defaults)
       '((load-path-shadows-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 'load-path-shadows-find-file
  'follow-link t
;;  'face 'default
  'action (lambda (button)
	    (let ((file (concat (button-get button 'shadow-file) ".el")))
	      (or (file-exists-p file)

		    (while (re-search-backward "\\(^.*\\) hides \\(.*$\\)"
					       nil t)
		      (dotimes (i 2)
			(make-button (match-beginning (1+ i))
				     (match-end (1+ i))
				     'type 'load-path-shadows-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.