Re: Agent categories gone.

[Robert Epprecht <epprecht@solnet.ch>]

Kevin Greiner <kgreiner@xpediantsolutions.com> writes:

> try deleting all of the gnus *.elc files then run make.

That didn't change anything.

> You could try debugging the compiled code.

OK, I did try (after some RTFM, as I never used the Lisp debugger before).
Please take everything I say as coming from an absolute newbie in this
roam... I give you the details of what I did, just in case I did something
stupid:


cvs update, removing all *,.elc files, calling ./configure and make, then:

emacs -f gnus
M-x debug-on-entry <RET> gnus-category-read <RET>
M-: (gnus-category-read) <RET>

I always paste the line that the point is on,
press 'd' and give the 'returning value' (If any).
(please excuse the long lines).

* gnus-category-read()

* (byte-code "ÂÃÄ!!\x18ÅŽr\bqˆÆÇȏ+†\x18

* generate-new-buffer-name(" *temp*")
  generate-new-buffer-name(" *temp*")	returning value: " *temp*"
* get-buffer-create(" *temp*")
  get-buffer-create(" *temp*")          returning value: #<buffer  *temp*>

* (byte-code "ÃÄ\bÅ\"!ˆebˆÆp!\x19ÇÈɏ‰\x1aƒ^[

* nnheader-concat("~/News/agent/" "lib/categories")
* file-name-as-directory("~/News/agent/")
  file-name-as-directory("~/News/agent/")    returning value: "~/News/agent/"
* apply(concat "~/News/agent/" ("lib/categories"))
* concat("~/News/agent/" "lib/categories")
  concat("~/News/agent/" "lib/categories")
      returning value: "~/News/agent/lib/categories"
  apply(concat "~/News/agent/" "lib/categories") returning value: "~/News/agent/lib/categories"
  nnheader-concat("~/News/agent/" "lib/categories") returning value: "~/News/agent/lib/categories"
* nnheader-insert-file-contents("~/News/agent/lib/categories")
* mm-insert-file-contents("~/News/agent/lib/categories" nil nil nil nil)
* mm-auto-mode-alist()
  mm-auto-mode-alist()  returning value: (("\\.~?[0-9]+\\.[0-9][-.0-9]*~?\\'" ignore t))
* insert-file-contents("~/News/agent/lib/categories" nil nil nil nil)

' *temp*' looks like this now:
((header false nil nil) (all true nil ("comp.lang.forth" "gnu.emacs.sources")) (default high file nil))

* format-decode(nil 103 nil)
* buffer-modified-p()
  buffer-modified-p()        returning value: t
* (set-buffer-modified-p mod)
  set-buffer-modified-p(t)   returning value: t
  format-decode(nil 103 nil) returning value: 103
  insert-file-contents("~/News/agent/lib/categories" nil nil nil nil)
       returning value: ("/home/m/News/agent/lib/categories" 103)
  mm-insert-file-contents("~/News/agent/lib/categories" nil nil nil nil)
       returning value: ("/home/m/News/agent/lib/categories" 103)
  nnheader-insert-file-contents("~/News/agent/lib/categories")
       returning value: ("/home/m/News/agent/lib/categories" 103)
* read(#<buffer  *temp*>)
  read(#<buffer  *temp*>)
       returning value: ((header false nil nil) (all true nil ("comp.lang.forth" "gnu.emacs.sources")) (default high file nil))
* (byte-code "Ap!\207" [read] 2)
* read(#<buffer  *temp*>)

* mapcar(#[(c) "\bÁÂÃÄ\bAÅ#\"¡ˆ\b‡" [c delq nil mapcar* #[... "\b…\a

* #[(c) "\bÁÂÃÄ\bAÅ#\"¡ˆ\b‡" [c delq nil mapcar* #[... "\b…\a

* mapcar*(#[(valu symb) "\b…\a

* (byte-code "Á\b!ƒ\n
* buffer-name(#<buffer  *temp*>)
  buffer-name(#<buffer  *temp*>)    returning value: " *temp*"
* kill-buffer(#<buffer  *temp*>)
* run-hooks(kill-buffer-hook)
* register-swap-out()
  register-swap-out()            returning value: nil
  run-hooks(kill-buffer-hook)    returning value: nil
  kill-buffer(#<killed buffer>)  returning value: t
  byte-code("Á\b!ƒ\n
     returning value: buffer-name

  byte-code("ÂÃÄ!!\x18ÅŽr\bqˆÆÇȏ+†\x18
    returning value: ((default (agent-predicate . false)))

  gnus-category-read()
    returning value: ((default (agent-predicate . false)))

* prin1(((default (agent-predicate . false))) t)
  prin1(((default (agent-predicate . false))) t)
       returning value: ((default (agent-predicate . false)))

* run-hooks(post-command-hook)
* gnus-undo-boundary()
  gnus-undo-boundary()            returning value: t
  run-hooks(post-command-hook)    returning value: nil
* (mode-line-mode-name)
* (normal-top-level)
[ ... ]


I hope that gives you some clues!
(I interpret the lines given below the ones the cursor is at as a kind of
 'nesting stack' or similar. I hope you can guess that from context).


BTW: As a Lisp newbie I'm a bit surprised.  Does this mean, that byte
compiled Lisp can give different results than interpreted one? (I hope
the term 'interpreted' is right in Lisp)  Is this normal or a bug of the
compiler?

Robert Epprecht