comparison lisp/follow.el @ 79149:6ddbf3d3f1a7

(follow-unload-function): New function.

79148:361a21ac1081

			(funcall (symbol-function 'define-key-after)
                                 tools-map [separator-follow] '("--") last)
			(funcall (symbol-function 'define-key-after)
				 tools-map [follow] (cons "Follow" menumap)
				 'separator-follow))
		    ;; Didn't find the last item, Adding to the top of
		    ;; tools.  (This will probably never happend...)
		    (define-key (current-global-map) [menu-bar tools follow]
		      (cons "Follow" menumap))))
	      ;; No tools menu, add "Follow" to the menubar.
	      (define-key mainmap [menu-bar follow]
		(cons "Follow" menumap)))))

  (follow-switch-to-buffer-all))

;;}}}
;;{{{ Movement

;; Note, these functions are not very useful, atleast not unless you
;; rebind the rather cumbersome key sequence `C-c . p'.

(defun follow-next-window ()
  "Select the next window showing the same buffer."
  (interactive)

;;}}}

;;{{{ The end

;;
;; We're done!
;;

(provide 'follow)

79149:6ddbf3d3f1a7

			(funcall (symbol-function 'define-key-after)
                                 tools-map [separator-follow] '("--") last)
			(funcall (symbol-function 'define-key-after)
				 tools-map [follow] (cons "Follow" menumap)
				 'separator-follow))
		    ;; Didn't find the last item, adding to the top of
		    ;; tools.  (This will probably never happen...)
		    (define-key (current-global-map) [menu-bar tools follow]
		      (cons "Follow" menumap))))
	      ;; No tools menu, add "Follow" to the menubar.
	      (define-key mainmap [menu-bar follow]
		(cons "Follow" menumap)))))

  (follow-switch-to-buffer-all))

;;}}}
;;{{{ Movement

;; Note, these functions are not very useful, at least not unless you
;; rebind the rather cumbersome key sequence `C-c . p'.

(defun follow-next-window ()
  "Select the next window showing the same buffer."
  (interactive)

;;}}}

;;{{{ The end

(defun follow-unload-function ()
  (follow-stop-intercept-process-output)
  (dolist (group '((before
		    ;; XEmacs
		    isearch-done
		    ;; both
		    set-process-filter sit-for move-overlay)
		   (after
		    ;; Emacs
		    scroll-bar-drag scroll-bar-drag-1 scroll-bar-scroll-down
		    scroll-bar-scroll-up scroll-bar-set-window-start
		    ;; XEmacs
		    scrollbar-line-down scrollbar-line-up scrollbar-page-down
		    scrollbar-page-up scrollbar-to-bottom scrollbar-to-top
		    scrollbar-vertical-drag
		    ;; both
		    process-filter)))
    (let ((class (car group)))
      (dolist (fun (cdr group))
	(when (functionp fun)
	  (condition-case nil
	      (progn
		(ad-remove-advice fun class
				  (intern (concat "follow-" (symbol-name fun))))
		(ad-update fun))
	    (error nil))))))
  nil)

(defvar follow-unload-function 'follow-unload-function)

;;
;; We're done!
;;

(provide 'follow)