Re: [help-recutils] Rec-mode fails to open

[Charles Millar]

Did not mention that the same error occurs with Cywin-1.7; I installed 
(I think) using git clone git://github.com/sidthekidder/recutils; 
appropriate changes made to the load paths. One change that I did make 
was I had to use the full cygdrive path for (require 'rec-mode)

Charlie Millar

Charles Millar wrote:
> Hello,
>
> I am exploring recutils-1.7 and rec-mode.
>
> Windowa Vista SP2
>
> GNU Emacs 24.3.1 (i386-mingw-nt6.0.6002) of 2013-03-17 on MARVIN
>
> my .emacs.d/init.el has the following set up for rec-mode
>
> (add-to-list 'load-path
> "c:/emacs/emacs-24.3/site-lisp/recutils-1.5/etc/rec-mode.el")
> (require 'rec-mode)
> (add-to-list 'auto-mode-alist '("\\.rec\\'" . rec-mode))
> (add-hook 'rec-mode-hook 'turn-on-font-lock) ; added just in case
>
> I have tried to use rec-mode with no luck; I can open a file, but, the
> file freezes as soon as rec-mode is called.
> I have searched both the help and bug mailingg lists as well the net and
> I believe that I have RTFM concerning the following. If I have missed
> anything just say so and I will keep looking. Any suggestions are welcome!
>
> When I attempt to open CMRecord with file variable -*- mode: Rec -*-
>
> the echo area displays
>
> File mode specification error: (file-error "Searching for program"
> "permission denied" "recinf")
>
> When I attempt to M-x rec-mode, toggle-debug-on-error yields the
> following Backtrace
>
> Debugger entered--Lisp error: (file-error "Searching for program"
> "permission denied" "recinf")
>    call-process("recinf" nil t nil "-S" "-d" "")
>    (progn (call-process rec-recinf nil t nil "-S" "-d" rec-file-name)
> (goto-char (point-min)) (insert "(") (goto-char (point-max)) (insert
> ")") (setq descriptors (read (buffer-substring-no-properties (point-min)
> (point-max)))))
>    (unwind-protect (progn (call-process rec-recinf nil t nil "-S" "-d"
> rec-file-name) (goto-char (point-min)) (insert "(") (goto-char
> (point-max)) (insert ")") (setq descriptors (read
> (buffer-substring-no-properties (point-min) (point-max))))) (and
> (buffer-name temp-buffer) (kill-buffer temp-buffer)))
>    (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
> (call-process rec-recinf nil t nil "-S" "-d" rec-file-name) (goto-char
> (point-min)) (insert "(") (goto-char (point-max)) (insert ")") (setq
> descriptors (read (buffer-substring-no-properties (point-min)
> (point-max))))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))
>    (let ((temp-buffer (generate-new-buffer " *temp*")))
> (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
> (call-process rec-recinf nil t nil "-S" "-d" rec-file-name) (goto-char
> (point-min)) (insert "(") (goto-char (point-max)) (insert ")") (setq
> descriptors (read (buffer-substring-no-properties (point-min)
> (point-max))))) (and (buffer-name temp-buffer) (kill-buffer
> temp-buffer)))))
>    (let ((rec-file-name (if buffer-file-name buffer-file-name ""))
> descriptors records) (let ((temp-buffer (generate-new-buffer "
> *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect
> (progn (call-process rec-recinf nil t nil "-S" "-d" rec-file-name)
> (goto-char (point-min)) (insert "(") (goto-char (point-max)) (insert
> ")") (setq descriptors (read (buffer-substring-no-properties ... ...))))
> (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (mapcar
> (function (lambda (descriptor) (let ((marker (make-marker))) (set-marker
> marker (rec-record-position descriptor)) (setq records (cons (list ...
> descriptor marker) records))))) descriptors) (reverse records))
>    (save-excursion (let ((rec-file-name (if buffer-file-name
> buffer-file-name "")) descriptors records) (let ((temp-buffer
> (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer
> temp-buffer) (unwind-protect (progn (call-process rec-recinf nil t nil
> "-S" "-d" rec-file-name) (goto-char (point-min)) (insert "(") (goto-char
> (point-max)) (insert ")") (setq descriptors (read ...))) (and
> (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (mapcar
> (function (lambda (descriptor) (let ((marker ...)) (set-marker marker
> (rec-record-position descriptor)) (setq records (cons ... records)))))
> descriptors) (reverse records)))
>    (setq rec-buffer-descriptors (save-excursion (let ((rec-file-name (if
> buffer-file-name buffer-file-name "")) descriptors records) (let
> ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer
> (set-buffer temp-buffer) (unwind-protect (progn (call-process rec-recinf
> nil t nil "-S" "-d" rec-file-name) (goto-char ...) (insert "(")
> (goto-char ...) (insert ")") (setq descriptors ...)) (and (buffer-name
> temp-buffer) (kill-buffer temp-buffer))))) (mapcar (function (lambda
> (descriptor) (let (...) (set-marker marker ...) (setq records ...))))
> descriptors) (reverse records))))
>    rec-update-buffer-descriptors()
>    rec-mode()
>    call-interactively(rec-mode record nil)
>    command-execute(rec-mode record)
>    execute-extended-command(nil "rec-mode")
>    call-interactively(execute-extended-command nil nil)
>    recursive-edit()
>    debug(debug)
>    implement-debug-on-entry()
> * rec-mode()
>    set-auto-mode-0(rec-mode nil)
>    byte-code("\237\305\211\203/
>
> Charlie Millar