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