changeset 68101:78318387b7b6

Use `require' rather than autoload for XEmacs's overlays. (flymake-get-common-file-prefix, flymake-build-relative-filename): Delete. Use file-relative-name instead. (flymake-get-syntax-check-program-args, flymake-perl-init): Simplify the resulting code.

--- a/lisp/ChangeLog	Mon Jan 09 19:03:20 2006 +0000
+++ b/lisp/ChangeLog	Mon Jan 09 19:11:28 2006 +0000
@@ -1,5 +1,12 @@
 2006-01-09  Stefan Monnier  <[e-mail]>
 
+	* progmodes/flymake.el: Use `require' rather than autoload for
+	XEmacs's overlays.
+	(flymake-get-common-file-prefix, flymake-build-relative-filename):
+	Delete.  Use file-relative-name instead.
+	(flymake-get-syntax-check-program-args, flymake-perl-init):
+	Simplify the resulting code.
+
 	* log-view.el (log-view-file-re, log-view-message-re): Add support
 	for DaRCS output.
 

--- a/lisp/progmodes/flymake.el	Mon Jan 09 19:03:20 2006 +0000
+++ b/lisp/progmodes/flymake.el	Mon Jan 09 19:11:28 2006 +0000
@@ -32,6 +32,9 @@
 
 ;;; Code:
 
+(eval-when-compile (require 'cl))
+(if (featurep 'xemacs) (require 'overlay))
+
 (defvar flymake-is-running nil
   "If t, flymake syntax check process is running for the current buffer.")
 (make-variable-buffer-local 'flymake-is-running)
@@ -60,17 +63,6 @@
   "Same as `flymake-err-info', effective when a syntax check is in progress.")
 (make-variable-buffer-local 'flymake-new-err-info)
 
-;;;; [[ Xemacs overlay compatibility
-(if (featurep 'xemacs) (progn
-(autoload 'make-overlay            "overlay" "Overlay compatibility kit." t)
-(autoload 'overlayp                "overlay" "Overlay compatibility kit." t)
-(autoload 'overlays-in             "overlay" "Overlay compatibility kit." t)
-(autoload 'delete-overlay          "overlay" "Overlay compatibility kit." t)
-(autoload 'overlay-put             "overlay" "Overlay compatibility kit." t)
-(autoload 'overlay-get             "overlay" "Overlay compatibility kit." t)
-))
-;;;; ]]
-
 ;;;; [[ cross-emacs compatibility routines
 (defsubst flymake-makehash (&optional test)
   (if (fboundp 'make-hash-table)
@@ -361,43 +353,6 @@
   (equal (flymake-fix-file-name file-name-one)
 	 (flymake-fix-file-name file-name-two)))
 
-(defun flymake-get-common-file-prefix (string-one string-two)
-  "Return common prefix for two file names STRING-ONE and STRING-TWO."
-  (setq string-one (file-name-as-directory string-one))
-  (setq string-two (file-name-as-directory string-two))
-  (let ((n (compare-strings string-one nil nil string-two nil nil)))
-    (if (eq n t) string-one
-      (setq n (abs (1+ n)))
-      (file-name-directory (substring string-one 0 n)))))
-
-(defun flymake-build-relative-filename (from-dir to-dir)
-  "Return rel: FROM-DIR/rel == TO-DIR."
-  ;; FIXME: Why not use `file-relative-name'?
-  (if (not (equal (elt from-dir 0) (elt to-dir 0)))
-      (error "First chars in file names %s, %s must be equal (same drive)"
-	     from-dir to-dir)
-    (let* ((from (file-name-as-directory (flymake-fix-file-name from-dir)))
-	   (to   (file-name-as-directory (flymake-fix-file-name to-dir)))
-	   (prefix      (flymake-get-common-file-prefix from to))
-	   (from-suffix (substring from (length prefix)))
-	   (up-count    (length (flymake-split-string from-suffix "[/]")))
-	   (to-suffix   (substring to   (length prefix)))
-	   (idx         0)
-	   (rel         nil))
-      (if (and (> (length to-suffix) 0) (equal "/" (char-to-string (elt to-suffix 0))))
-	  (setq to-suffix (substring to-suffix 1)))
-
-      (while (< idx up-count)
-	(if (> (length rel) 0)
-	    (setq rel (concat rel "/")))
-	(setq rel (concat rel ".."))
-	(setq idx (1+ idx)))
-      (if (> (length rel) 0)
-	  (setq rel (concat rel "/")))
-      (if (> (length to-suffix) 0)
-	  (setq rel (concat rel to-suffix)))
-      (or rel "./"))))
-
 (defcustom flymake-master-file-dirs '("." "./src" "./UnitTest")
   "Dirs where to look for master files."
   :group 'flymake
@@ -1686,16 +1641,14 @@
 ;;;; make-specific init-cleanup routines
 (defun flymake-get-syntax-check-program-args (source-file-name base-dir use-relative-base-dir use-relative-source get-cmd-line-f)
   "Create a command line for syntax check using GET-CMD-LINE-F."
-  (let* ((my-base-dir  base-dir)
-	 (my-source    source-file-name))
-
-    (when use-relative-base-dir
-      (setq my-base-dir (flymake-build-relative-filename (file-name-directory source-file-name) base-dir)))
-
-    (when use-relative-source
-      (setq my-source (concat (flymake-build-relative-filename base-dir (file-name-directory source-file-name))
-			      (file-name-nondirectory source-file-name))))
-    (funcall get-cmd-line-f my-source my-base-dir)))
+  (funcall get-cmd-line-f
+           (if use-relative-source
+               (file-relative-name source-file-name base-dir)
+             source-file-name)
+           (if use-relative-base-dir
+               (file-relative-name base-dir
+                                   (file-name-directory source-file-name))
+             base-dir)))
 
 (defun flymake-get-make-cmdline (source base-dir)
   (list "make"
@@ -1769,10 +1722,9 @@
 (defun flymake-perl-init ()
   (let* ((temp-file   (flymake-init-create-temp-buffer-copy
                        'flymake-create-temp-inplace))
-	 (local-file  (concat (flymake-build-relative-filename
-			       (file-name-directory buffer-file-name)
-			       (file-name-directory temp-file))
-			      (file-name-nondirectory temp-file))))
+	 (local-file  (file-relative-name
+                       temp-file
+                       (file-name-directory buffer-file-name))))
     (list "perl" (list "-wc " local-file))))
 
 ;;;; tex-specific init-cleanup routines