void-function popup-menu

Bug #584166 reported by kjsdb on 2010-05-22
6
This bug affects 1 person
Affects Status Importance Assigned to Milestone
nXhtml
Medium
Unassigned

Bug Description

Even creating a simple html page causes problems in console emacs. For example, creating a new file “foo.html”, then entering

<html><head>

and then pressing M-TAB provokes

Debugger entered--Lisp error: (void-function popup-menu)
  (popup-menu menu where prefix)
  (let ((where ...)) (popup-menu menu where prefix))
  popup-menu-at-point((keymap (popcmps-document menu-item "Document" (keymap ... ... ... ... ... ...)) (popcmps-form menu-item "Form" (keymap ...)) (popcmps-scripting menu-item "Scripting" (keymap ...)) "Insert tag: "))
  (let ((pop-map ...) (sets ...) (add-alt ...)) (if sets (dolist ... ...) (dolist ... ...)) (popup-menu-at-point pop-map) completion)
  (if (not matching-alts) (progn (message "No alternative found") nil) (let (... ... ...) (if sets ... ...) (popup-menu-at-point pop-map) completion))
  (let ((matching-alts ...) completion) (if (not matching-alts) (progn ... nil) (let ... ... ... completion)))
  popcmp-completing-read-pop("Insert tag: " rng-complete-qname-function nil nil "" rng-tag-history nil nil #s(hash-table size 97 test equal rehash-size 1.5 rehash-threshold 0.8 data ("html" "Document" "head" "Document head" "title" "Document title" "base" "Base URL/target" "meta" "Meta information" "style" "Inline style sheet" "link" "Style sheet etc" "script" "(Java)Script code" "noscript" "Script disabled part" "isindex" "(DEPRECEATED)" "iframe" "Inline frame" "frameset" "Organize frames" "frame" "Sub window" "noframes" "Substitute for frames" "bdo" "Text direction" "body" "Document body" "a" "Link" "p" "Paragraph" "span" "Group inline elements" "br" "Line break" "hr" "Horizontal rule" "div" "Division/section" "img" "Image" "h1" "Header 1" "del" "Deleted text" "strike" "(DEPRECEATED)" "u" "(DEPRECEATED)" "s" "(DEPRECEATED)" "ins" "Inserted text" "sup" "Superscript text" "center" "(DEPRECEATED)" "dir" "(DEPRECEATED)" "blockquote" "Long quotation" "q" "Short quotation" "pre" "Preformatted text" "applet" "(DEPRECEATED)" "basefont" "(DEPRECEATED)" "font" "(DEPRECEATED)" "tt" "Renders as teletype or mono spaced text" "i" "Renders as italic text" "b" "Renders as bold text" "big" "Renders as bigger text" "small" "Renders as smaller text" "em" "Renders as emphasized text" "strong" "Renders as strong emphasized text" "dfn" "Defines a definition term" "code" "Defines computer code text" "samp" "Defines sample computer code" "kbd" "Defines keyboard text" "var" "Defines a variable" ...)) (("logical" "del" "ins" "abbr" "acronym" "fieldset" "blockquote" "q" "code" "samp" "cite" "kbd" "var" "dfn" "address" "em" "strong" "pre") ("physical" "hr" "sup" "sub" "font" "basefont" "br" "big" "small" "strike" "u" "i" "b" "s" "tt" "center" "bdo") ("scripting" "script" "noscript" "object" "applet") ("structure" "iframe" "p" "div" "span" "h6" "h5" "h4" "h3" "h2" "h1") ("form" "isindex" "label" "button" "option" "select" "input" "textarea" "form") ("list" "dt" "dd" "li" "dir" "menu" "ol" "dl" "ul") ("link" "a") ("image" "img" "map") ("table" "table" "tr" "th" "td" "caption" "col" "colgroup" "thead" "tbody" "tfoot") ("document" "base" "style" "link" "head" "body" "frame" "frameset" "noframes" "isindex" "nextid" "meta" "title")))
  (progn (setq err-sym nil) (popcmp-completing-read-pop prompt table predicate require-match initial-input pop-hist def inherit-input-method alt-help alt-sets))
  (if (eq popcmp-completion-style (quote popcmp-popup)) (progn (setq err-sym nil) (popcmp-completing-read-pop prompt table predicate require-match initial-input pop-hist def inherit-input-method alt-help alt-sets)) (prog1 (setq ret ...) (when ... ...)))
  (unwind-protect (if (eq popcmp-completion-style ...) (progn ... ...) (prog1 ... ...)) (popcmp-unmark-completing) (when err-sym (signal err-sym err-val)))
  (let ((err-sym ...) (err-val nil) ret) (unwind-protect (if ... ... ...) (popcmp-unmark-completing) (when err-sym ...)))
  (if (and popcmp-in-buffer-allowed (eq popcmp-completion-style ...) (boundp ...) company-mode) (progn (add-hook ... ... t) (call-interactively ...) initial-input) (popcmp-mark-completing initial-input) (let (... ... ret) (unwind-protect ... ... ...)))
  popcmp-completing-read("Insert tag: " rng-complete-qname-function nil nil "" rng-tag-history nil nil #s(hash-table size 97 test equal rehash-size 1.5 rehash-threshold 0.8 data ("html" "Document" "head" "Document head" "title" "Document title" "base" "Base URL/target" "meta" "Meta information" "style" "Inline style sheet" "link" "Style sheet etc" "script" "(Java)Script code" "noscript" "Script disabled part" "isindex" "(DEPRECEATED)" "iframe" "Inline frame" "frameset" "Organize frames" "frame" "Sub window" "noframes" "Substitute for frames" "bdo" "Text direction" "body" "Document body" "a" "Link" "p" "Paragraph" "span" "Group inline elements" "br" "Line break" "hr" "Horizontal rule" "div" "Division/section" "img" "Image" "h1" "Header 1" "del" "Deleted text" "strike" "(DEPRECEATED)" "u" "(DEPRECEATED)" "s" "(DEPRECEATED)" "ins" "Inserted text" "sup" "Superscript text" "center" "(DEPRECEATED)" "dir" "(DEPRECEATED)" "blockquote" "Long quotation" "q" "Short quotation" "pre" "Preformatted text" "applet" "(DEPRECEATED)" "basefont" "(DEPRECEATED)" "font" "(DEPRECEATED)" "tt" "Renders as teletype or mono spaced text" "i" "Renders as italic text" "b" "Renders as bold text" "big" "Renders as bigger text" "small" "Renders as smaller text" "em" "Renders as emphasized text" "strong" "Renders as strong emphasized text" "dfn" "Defines a definition term" "code" "Defines computer code text" "samp" "Defines sample computer code" "kbd" "Defines keyboard text" "var" "Defines a variable" ...)) (("logical" "del" "ins" "abbr" "acronym" "fieldset" "blockquote" "q" "code" "samp" "cite" "kbd" "var" "dfn" "address" "em" "strong" "pre") ("physical" "hr" "sup" "sub" "font" "basefont" "br" "big" "small" "strike" "u" "i" "b" "s" "tt" "center" "bdo") ("scripting" "script" "noscript" "object" "applet") ("structure" "iframe" "p" "div" "span" "h6" "h5" "h4" "h3" "h2" "h1") ("form" "isindex" "label" "button" "option" "select" "input" "textarea" "form") ("list" "dt" "dd" "li" "dir" "menu" "ol" "dl" "ul") ("link" "a") ("image" "img" "map") ("table" "table" "tr" "th" "td" "caption" "col" "colgroup" "thead" "tbody" "tfoot") ("document" "base" "style" "link" "head" "body" "frame" "frameset" "noframes" "isindex" "nextid" "meta" "title")))
  (let ((popcmp-in-buffer-allowed t)) (popcmp-completing-read prompt table predicate require-match initial-input hist def inherit-input-method nxhtml-help-tag nxhtml-tag-sets))
  nxhtml-completing-read-tag("Insert tag: " rng-complete-qname-function nil nil "" rng-tag-history)
  funcall(nxhtml-completing-read-tag "Insert tag: " rng-complete-qname-function nil nil "" rng-tag-history)
  (unwind-protect (funcall completing-fun prompt table predicate nil orig hist) (setq-default minibuffer-setup-hook saved-minibuffer-setup-hook))
  (let ((saved-minibuffer-setup-hook ...)) (add-hook (quote minibuffer-setup-hook) (quote minibuffer-completion-help) t) (unwind-protect (funcall completing-fun prompt table predicate nil orig hist) (setq-default minibuffer-setup-hook saved-minibuffer-setup-hook)))
  (setq completion (let (...) (add-hook ... ... t) (unwind-protect ... ...)))
  (cond ((not ...) (if ... ... ...) (ding) nil) ((eq completion t) orig) ((and completion ...) (delete-region start ...) (insert completion) (cond ... ... ...)) (t (setq completion ...) (when completion ... ...) completion))
  (let* ((orig ...) (completion ...) (completing-fun ...) (completion-ignore-case t)) (cond (... ... ... nil) (... orig) (... ... ... ...) (t ... ... completion)))
  rngalt-complete-before-point(73 rng-complete-qname-function "Insert tag: " nil rng-tag-history nxhtml-completing-read-tag)
  (let ((rng-complete-target-names ...) (rng-complete-name-attribute-flag nil)) (rngalt-complete-before-point (1+ lt-pos) (quote rng-complete-qname-function) "Insert tag: " nil (quote rng-tag-history) rngalt-completing-read-tag))
  (let ((completion ...) name) (when completion (cond ... ...)))
  (progn (and rng-collecting-text (rng-flush-text)) (rngalt-complete-tag-region-prepare) (let (... name) (when completion ...)) (rngalt-complete-tag-region-finish) t)
  (if (save-excursion (re-search-backward rng-in-start-tag-name-regex lt-pos t)) (progn (and rng-collecting-text ...) (rngalt-complete-tag-region-prepare) (let ... ...) (rngalt-complete-tag-region-finish) t))
  (when (save-excursion (re-search-backward rng-in-start-tag-name-regex lt-pos t)) (and rng-collecting-text (rng-flush-text)) (rngalt-complete-tag-region-prepare) (let (... name) (when completion ...)) (rngalt-complete-tag-region-finish) t)
  (let (rng-complete-extra-strings) (when (and ... rng-complete-end-tags-after-< rng-open-elements ... ...) (setq rng-complete-extra-strings ...)) (when (save-excursion ...) (and rng-collecting-text ...) (rngalt-complete-tag-region-prepare) (let ... ...) (rngalt-complete-tag-region-finish) t))
  rngalt-complete-tag(72)
  (or (rngalt-complete-tag lt-pos) (rng-complete-end-tag lt-pos) (rngalt-complete-attribute-name lt-pos) (rngalt-complete-attribute-value lt-pos))
  (and lt-pos (= (rng-set-state-after lt-pos) lt-pos) (or (rngalt-complete-tag lt-pos) (rng-complete-end-tag lt-pos) (rngalt-complete-attribute-name lt-pos) (rngalt-complete-attribute-value lt-pos)))
  (or (and lt-pos (= ... lt-pos) (or ... ... ... ...)) (when rngalt-complete-last-try (funcall rngalt-complete-last-try)))
  (let ((lt-pos ...) xmltok-dtd) (or (and lt-pos ... ...) (when rngalt-complete-last-try ...)))
  (progn (unless rng-current-schema-file-name (when ... ...)) (let (... xmltok-dtd) (or ... ...)))
  (or (when rngalt-complete-first-try (funcall rngalt-complete-first-try)) (progn (unless rng-current-schema-file-name ...) (let ... ...)))
  (progn (rngalt-reapply-validation-header) (when rng-current-schema-file-name (rngalt-validate)) (or (when rngalt-complete-first-try ...) (progn ... ...)))
  (if rng-validate-mode (progn (rngalt-reapply-validation-header) (when rng-current-schema-file-name ...) (or ... ...)))
  (when rng-validate-mode (rngalt-reapply-validation-header) (when rng-current-schema-file-name (rngalt-validate)) (or (when rngalt-complete-first-try ...) (progn ... ...)))
  rngalt-complete()
  run-hook-with-args-until-success(rngalt-complete)
  nxml-complete()
  nxhtml-redisplay-complete()
  (condition-case err (nxhtml-redisplay-complete) (quit (message "%s" ...) (undo-start) (undo-more 1) (rngalt-complete-tag-region-cleanup)))
  (cond ((eq where ...) (insert 34)) ((eq where ...) (if ... nil ... t)) ((eq where ...) (let ... ... ...)) ((or ...) (rngalt-complete-tag-region-prepare) (insert "<") (condition-case err ... ...) t) (t nil))
  (let ((where ...)) (cond (... ...) (... ...) (... ...) (... ... ... ... t) (t nil)))
  (progn (let (...) (cond ... ... ... ... ...)))
  (if rng-current-schema-file-name (progn (let ... ...)))
  (when rng-current-schema-file-name (let (...) (cond ... ... ... ... ...)))
  nxhtml-complete-last-try()
  funcall(nxhtml-complete-last-try)
  (progn (funcall rngalt-complete-last-try))
  (if rngalt-complete-last-try (progn (funcall rngalt-complete-last-try)))
  (when rngalt-complete-last-try (funcall rngalt-complete-last-try))
  (or (and lt-pos (= ... lt-pos) (or ... ... ... ...)) (when rngalt-complete-last-try (funcall rngalt-complete-last-try)))
  (let ((lt-pos ...) xmltok-dtd) (or (and lt-pos ... ...) (when rngalt-complete-last-try ...)))
  (progn (unless rng-current-schema-file-name (when ... ...)) (let (... xmltok-dtd) (or ... ...)))
  (or (when rngalt-complete-first-try (funcall rngalt-complete-first-try)) (progn (unless rng-current-schema-file-name ...) (let ... ...)))
  (progn (rngalt-reapply-validation-header) (when rng-current-schema-file-name (rngalt-validate)) (or (when rngalt-complete-first-try ...) (progn ... ...)))
  (if rng-validate-mode (progn (rngalt-reapply-validation-header) (when rng-current-schema-file-name ...) (or ... ...)))
  (when rng-validate-mode (rngalt-reapply-validation-header) (when rng-current-schema-file-name (rngalt-validate)) (or (when rngalt-complete-first-try ...) (progn ... ...)))
  rngalt-complete()
  run-hook-with-args-until-success(rngalt-complete)
  nxml-complete()
  call-interactively(nxml-complete nil nil)

lborgman (lennart-borgman) wrote :

Hi ksdjb,

Thanks for the bug report, but please notice a few things:

- You do not need to add a bug to the wiki page. In fact I seldom look at that so it might get unnoticed there.

- It is much better to add such a long list as an attachment. Just paste a small part of it here and make the rest an attachment. That makes it much easier to read the page.

Looks like I forgot to check if a console is used. Another completion style must be used. As a workaround you can change it yourself in

  nXhtml / Tools / XHTML Completion and Validation / Completion Style

Changed in nxhtml:
importance: Undecided → Medium
status: New → In Progress
lborgman (lennart-borgman) wrote :

I have checked in a fix in the repository for this. It will be in next release.

Changed in nxhtml:
status: In Progress → Fix Committed
To post a comment you must log in.
This report contains Public information  Edit
Everyone can see this information.

Other bug subscribers