[help-recutils] Rec-mode fails to open

[Charles Millar]

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