> I was trying to fire up the `semantic-show-tag-boundaries-mode' when I
> got (wrong-number-of-arguments add-to-list 3). This is the latest CVS
> build of cedet 2.x.
> This occurs in `semantic-tag-add-hook', line 676 of semantic-tag.el:
> (defun semantic-tag-add-hook (tag hook value &optional append)
> "Add onto TAG a HOOK with VALUE."
> (let ((pl (semantic--tag-get-property tag hook)))
> (setq pl (add-to-list 'pl value append))
> (semantic--tag-put-property tag hook pl)))
> On XEmacs, add-to-list doesn't have the optional APPEND tag. The emacs
> version is:
Good find. Thanks!
I think the following implementation should fix the problem:
(defun semantic-tag-add-hook (tag hook value &optional append)
"Onto TAG, add to the value of HOOK the function VALUE.
VALUE is added (if necessary) at the beginning of the hook list
unless the optional argument APPEND is non-nil, in which case
VALUE is added at the end."
(let ((pl (semantic--tag-get-property tag hook)))
(unless (member value pl)
(setq pl (if append
(append pl (list value))
(cons value pl)))
(semantic--tag-put-property tag hook pl))
Eric, if you have no objection, I will check-in this fix.