Re: Boostrap error

["Jan D." <jan.h.d@swipnet.se>]

[-- Attachment #1: Type: text/plain, Size: 1227 bytes --]

Lennart Borgman wrote:


> I have attached a version I sent to Emacs Devel earlier with some
> corrections to Stefans code. It also handles path like /c. I have tested it
> with MSYS which uses such paths, but I have not tested the build process
> yet. (Since it takes such a long time on this very old pc.)


If I cd to /cygdrive/d/src/emacs-cygwin and make bootstrap I get the old 
message abount encoded-kb not found.

If I cd to /d/src/emacs-cygwin and make bootstrap I get:

"./../bin/emacs.exe" -batch --no-init-file --no-site-file --multibyte -l 
autoload \
         --eval '(setq find-file-hook nil \
                 find-file-suppress-same-file-warnings t \
                 generated-autoload-file \
                   "/d/src/emacs-cygwin/lisp/loaddefs.el")' \
         -f batch-update-autoloads /d/src/emacs-cygwin/lisp calc calendar 
emacs-lisp emulation eshell gnus international language mail mh-e net obsolete 
play progmodes term textmodes toolbar url
handler expand-file-name (subdirs.el /:/d/src/emacs-cygwin/lisp)
Wrong type argument: number-or-marker-p, nil
Signal 127
make[1]: *** [autoloads] Error 255
make[1]: Leaving directory `/d/src/emacs-cygwin/lisp'
make: *** [bootstrap-gmake] Error 2

	Jan D.



[-- Attachment #2: cygdrive.el --]
[-- Type: text/plain, Size: 1325 bytes --]

;;; Try to handle the most common misuses of cygwin paths.
;;(defconst w32-cygdrive-name-regexp "\\`/cygdrive/\\(.\\)/")
(defconst w32-cygdrive-name-regexp "^\\(?:/cygwin\\)?/\\(.\\)/")
;;(defconst w32-cygdrive-name-regexp "^/\\(.\\)/")

(defun w32-cygdrive-run-real-handler (op args)
  (let ((inhibit-file-name-handlers
	 (cons 'w32-cygdrive-name-handler
	       (if (eq inhibit-file-name-operation op)
		   inhibit-file-name-handlers)))
	(inhibit-file-name-operation op))
    (apply op args)))

(defun w32-cygdrive-name-handler (op &rest args)
(message "handler %s %s" op args)
(case op
  (expand-file-name
   (let ((file (car args))
	 (cdrargs (cdr args)))
     (cond
      ((= 0 (string-match w32-cygdrive-name-regexp file))
       (w32-cygdrive-run-real-handler
	op (cons (replace-match "\\1:/" t nil file) cdrargs)))
      ((= 0 (string-match w32-cygdrive-name-regexp (car cdrargs)))
       (w32-cygdrive-run-real-handler
	op (list* file (replace-match "\\1:/" t nil (car cdrargs))
		  (cdr cdrargs))))
      ;; This is actually an error (we should never get here),
      ;; but let's be defensive.
      (t (w32-cygdrive-run-real-handler op args)))))
  (t (w32-cygdrive-run-real-handler op args))))

(push (cons w32-cygdrive-name-regexp 'w32-cygdrive-name-handler) file-name-handler-alist)
(find-file "/c/hello.txt/")

[-- Attachment #3: Type: text/plain, Size: 142 bytes --]

_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel