when entering a file under hg (mercurial), I get this error:
Debugger entered--Lisp error: (invalid-function define-generic-mode)
define-generic-mode(hgrc-mode (59 35) nil (("^\\(\\[.*\\]\\)" 1
font-lock-constant-face) ("^\\s-*\\(.+\\)=\\([^
\n]*\\)" (1 font-lock-variable-name-face) (2 font-lock-type-face)))
("\\.?hgrc\\'") (hgrc-mode-setup-function) "Mode to edit mercurial
configuration files.")
byte-code("ÁÂÃÄ$��!��������&
" [hgrc-mode-map easy-menu-do-define hgrc-mode-menu "`hgrc-mode' menu" ("hgrc"
["Show hgrc manpage" hgrc-mode-help t]) require generic define-generic-mode
hgrc-mode (59 35) nil (("^\\(\\[.*\\]\\)" 1 font-lock-constant-face)
("^\\s-*\\(.+\\)=\\([^
\n]*\\)" ... ...)) ("\\.?hgrc\\'") (hgrc-mode-setup-function) "Mode to edit
mercurial configuration files."] 8)
require(xhg)
byte-code("ÂÃ!��!�B
ÅÁ! ÆÇÁÃ\"" [current-load-list dvc-registered-backends require xhg
dvc-unified boundp nil add-to-list] 3)
require(xhg-dvc nil t)
dvc-function(xhg "dvc-file-has-conflict-p")
dvc-apply("dvc-file-has-conflict-p"
"/mnt/local/sda1/hg-multi/ratio/lib/rUtils.ml")
dvc-find-file-hook()
run-hooks(find-file-hook)
after-find-file(nil t)
find-file-noselect-1(#<buffer rUtils.ml> "~/work/ratio/lib/rUtils.ml" nil nil
"/mnt/local/sda1/hg-multi/ratio/lib/rUtils.ml" (102809486 2049))
find-file-noselect("/home/sds/work/ratio/lib/rUtils.ml" nil nil nil)
find-file("/home/sds/work/ratio/lib/rUtils.ml")
command-line-1(("/home/sds/work/ratio/lib/rUtils.ml"))
command-line()
normal-top-level()
it appears that the "define-generic-mode 'hgrc-mode" form is compiled
with define-generic-mode not defined, so it is treated as a function,
not a macro, by the byte compiler, so, of course, it fails on execution.
alas, the obvious solutions, like putting various combinations of
eval-when-compile, eval-and-compile, and (require 'generic) does not
help.
moreover, compiling xhg.el interactively after loading generic.el
results in the following error:
In xhg-parse-status:
xhg.el:199:56:Warning: reference to free variable `output'
xhg.el:65:20:Error: End of file during parsing
PS. xhg.el is full of forms like
(append '("foo") ...)
they should be replaced with
(cons "foo" ...)
for clarity and efficiency.
Emacs : GNU Emacs 23.0.50.3 (x86_64-unknown-linux-gnu, GTK+ Version 2.8.20)
of 2007-09-11 on nyc-qws-005
Package: Dvc Unknown version
http://bzr.xsteve.at/dvc/
revision 258.
current state:
==============
(setq
emacs-version "23.0.50.3"
dvc-version "Unknown version"
dvc-command-version "Bazaar (bzr) 0.18.0"
baz-executable "baz"
bzr-apply-patch-mapping nil
bzr-mail-notification-destination nil
bzr-patch-sent-action 'keep-both
bzr-submit-patch-mapping '(("dvc-dev-bzr" ("[email protected]" "dvc")))
bzr-work-offline 'prompt
tla-apply-patch-mapping nil
tla-arch-branch 'baz
tla-archive-list-mode-hook nil
tla-bookmarks-cleanup-dont-prompt nil
tla-bookmarks-file-name "bookmarks.el"
tla-bookmarks-mode-hook nil
tla-branch-list-mode-hook nil
tla-button-revision-fn 'tla-revlog-any
tla-category-list-mode-hook nil
tla-changes-recursive t
tla-commit-check-log-buffer-functions '(tla-commit-check-empty-headers
tla-commit-check-empty-line
tla-commit-check-missing-space)
tla-commit-done-hook '(dvc-kill-all-buffers)
tla-commit-fix-missing-space t
tla-commit-headers-allowed-to-be-empty "^\\(Keywords\\)$"
tla-description-format '(patch-id "\n " summary "\n Located at: " location
"\n")
tla-dont-hyperlink-changelog nil
tla-executable "tla"
tla-follow-symlinks 'tree
tla-follow-symlinks-mode 'follow
tla-format-line-function nil
tla-generate-line-function nil
tla-install-command-help-system t
tla-inventory-display-backup t
tla-inventory-display-junk t
tla-inventory-display-precious t
tla-inventory-display-source t
tla-inventory-display-tree t
tla-inventory-display-unrecognized t
tla-inventory-file-mode-hook nil
tla-inventory-mode-hook nil
tla-log-edit-keywords '("bugfix" "docfix" "warnfix" "linting" "newfeature"
"merge" "update" "rename" "delete" "newfile")
tla-log-edit-mode-hook '(turn-on-flyspell)
tla-log-library "~/.arch-log-library/"
tla-log-library-greedy t
tla-logs-mode-hook nil
tla-mail-notification-destination nil
tla-make-archive-hook nil
tla-make-branch-hook nil
tla-make-category-hook nil
tla-make-log-function 'tla-default-make-log-function
tla-make-version-hook nil
tla-name-read-error-hook '(tla--name-read-insert-info-at-point-final)
tla-name-read-final-hook '(tla--name-read-insert-info-at-point-final)
tla-name-read-init-hook '(tla--name-read-insert-bookmark-init
tla--name-read-insert-partner-init
tla--name-read-insert-info-at-point-init)
tla-non-recursive-inventory t
tla-patch-sent-action 'keep-tarball
tla-revision-list-mode-hook nil
tla-revisions-shows-library t
tla-revisions-shows-merged-by t
tla-revisions-shows-merges nil
tla-revlog-mode-hook nil
tla-send-comments-format "Your patch %c--%b--%v--%r (%t)"
tla-send-comments-width 25
tla-show-ancestor nil
tla-strict-commits nil
tla-submit-patch-mapping '(((nil "xtla" nil nil nil)
("[EMAIL PROTECTED]" "xtla"))
)
tla-switch-to-changes-buffer nil
tla-tag-does-cacherev 'ask
tla-tag-function 'tla-tag-uuid
tla-three-way-merge t
tla-update-recursive t
tla-update-strategy 'merge
tla-use-arrow-keys-for-navigation nil
tla-use-skip-present-option nil
tla-version-list-mode-hook nil
tla-version-to-name-function nil
xgit-executable "git"
xhg-commit-done-hook nil
features '(mail-extr utf7 starttls nnimap imap ispell newcomment dabbrev dired
warnings time-stamp skeleton vc vc-bzr bzr-dvc bzr find-func
loadhist debug bzr-submit cookie1 vc-cvs tla smerge-mode dvc-state
dvc-config diff sendmail tla-gnus dvc-gnus dvc-cmenu dvc-about
dvc-revlist parse-time gnus-msg gnus-art mm-uu mml2015 pgg
pgg-parse pgg-def mm-view gnus-sum nnoo gnus-group gnus-undo nnmail
mail-source format-spec gnus-start gnus-spec gnus-int gnus-range
gnus-win message rfc822 mml mml-sec mml-smime smime dig mm-decode
mm-bodies mm-encode mailcap mail-parse rfc2231 rfc2047 rfc2045 qp
ietf-drums gmm-utils mailheader canlock sha1 hex-util reporter
dvc-bug dvc-version vc-hg xhg-dvc xhg generic xhg-log dvc-diff
dvc-unified dvc-tips bzr-core tla-core pp tla-autoconf tla-defs
ffap add-log diff-mode easy-mmode ediff ediff-util ediff-merg
ediff-diff ediff-wind ediff-help ediff-mult ediff-init xdarcs-core
xgit-core xhg-core xmtn-minimal caml tuareg speedbar sb-image
ezimage dframe assoc compile caml-help caml-types caml-emacs
midnight calendar cal-menu gnus gnus-ems nnheader gnus-util
time-date mail-utils mm-util mail-prsvr wid-edit netrc bbdb-com
mailabbrev bbdb-autoloads bbdb timezone server which-func imenu
url-handlers complete paren help-at-pt cus-start cus-load
ess-toolbar ess-mous mouseme thingatpt browse-url ess-menu ess-swv
ess-noweb noweb-font-lock-mode essl-bug essd-omg essl-omg essd-els
essd-sas essl-sas essa-sas executable shell essd-arc essd-vst
essd-xls essl-lsp essd-sta essl-sta cc-vars cc-defs make-regexp
essd-sp6 essd-sp5 essd-sp3 essd-r essl-s ess-inf ess-utils comint
ring ess-mode noweb-mode ess ess-cust regexp-opt ess-emcs ess-site
dvc-autoloads dvc-core dvc-lisp dvc-buffers dvc-ui easymenu
dvc-register dvc-utils mule-util dvc-emacs ewoc dvc-defs byte-opt
bytecomp byte-compile advice help-fns help-mode view advice-preload
cl cl-19 tooltip ediff-hook vc-hooks lisp-float-type x-win x-dnd
tool-bar mwheel dnd fontset image fringe abbrev lisp-mode register
page menu-bar rfn-eshadow timer select scroll-bar mldrag mouse
jit-lock font-lock syntax facemenu font-core termdev frame
ucs-tables georgian utf-8-lang misc-lang vietnamese tibetan thai
lao korean japanese hebrew greek romanian slovak czech european
ethiopic kannada tamil malayalam devanagari indian cyrillic chinese
case-table jka-cmpr-hook help simple button faces cus-face
text-properties overlay md5 base64 format env mule custom widget
backquote make-network-process gtk x-toolkit x multi-tty emacs)
)
--
Sam Steingold (http://sds.podval.org/) on Fedora Core release 5 (Bordeaux)
http://israelunderattack.slide.com http://ffii.org http://honestreporting.com
http://palestinefacts.org http://pmw.org.il http://memri.org
UNIX, car: hard to learn/easy to use; Windows, bike: hard to learn/hard to use.
_______________________________________________
Dvc-dev mailing list
[email protected]
https://mail.gna.org/listinfo/dvc-dev
