Error with completion

Error with completion

[Lars Magne Ingebrigtsen]

If I say `C-h f pop- TAB', then I get the error below.  This is with a
recent bzr checkout, emacs -q, on a machine I haven't tried to compile
bzr emacs before:

Debugger entered--Lisp error: (wrong-type-argument listp 0)
  last((#("pop-to-mark-command" 0 4 (font-lock-face completions-common-part) 4 5 (font-lock-face completions-first-difference)) #("pop-tag-mark" 0 4 (font-lock-face completions-common-part) 4 5 (font-lock-face completions-first-difference)) #("pop-global-mark" 0 4 (font-lock-face completions-common-part) 4 5 (font-lock-face completions-first-difference)) #("pop-to-buffer" 0 4 (font-lock-face completions-common-part) 4 5 (font-lock-face completions-first-difference)) #("pop-mark" 0 4 (font-lock-face completions-common-part) 4 5 (font-lock-face completions-first-difference)) . 0))
  (let* ((last (last (symbol-value (quote --cl-completions--)))) (base-size (cdr last)) (display-buffer-mark-dedicated (quote soft))) (with-output-to-temp-buffer "*Completions*" (if last (setcdr last nil)) (set (quote --cl-completions--) (sort (symbol-value (quote --cl-completions--)) (quote string-lessp))) (if completion-annotate-function (set (quote --cl-completions--) (mapcar (function (lambda (s) (let ... ...))) (symbol-value (quote --cl-completions--))))) (save-current-buffer (set-buffer standard-output) (set (make-local-variable (quote completion-base-position)) (list (+ (symbol-value (quote --cl-start--)) base-size) nil))) (display-completion-list (symbol-value (quote --cl-completions--)))))
  (if (and (symbol-value (quote --cl-completions--)) (or (consp (cdr (symbol-value (quote --cl-completions--)))) (not (equal (car (symbol-value (quote --cl-completions--))) (symbol-value (quote --cl-string--)))))) (let* ((last (last (symbol-value (quote --cl-completions--)))) (base-size (cdr last)) (display-buffer-mark-dedicated (quote soft))) (with-output-to-temp-buffer "*Completions*" (if last (setcdr last nil)) (set (quote --cl-completions--) (sort (symbol-value (quote --cl-completions--)) (quote string-lessp))) (if completion-annotate-function (set (quote --cl-completions--) (mapcar (function (lambda ... ...)) (symbol-value (quote --cl-completions--))))) (save-current-buffer (set-buffer standard-output) (set (make-local-variable (quote completion-base-position)) (list (+ (symbol-value ...) base-size) nil))) (display-completion-list (symbol-value (quote --cl-completions--))))) (minibuffer-hide-completions) (ding) (minibuffer-message (if (symbol-value (quote --cl-completions--)) "Sole completion" "No completions")))
  (progn (setq a (symbol-value (quote --cl-completions--))) (message nil) (if (and (symbol-value (quote --cl-completions--)) (or (consp (cdr (symbol-value (quote --cl-completions--)))) (not (equal (car (symbol-value ...)) (symbol-value (quote --cl-string--)))))) (let* ((last (last (symbol-value (quote --cl-completions--)))) (base-size (cdr last)) (display-buffer-mark-dedicated (quote soft))) (with-output-to-temp-buffer "*Completions*" (if last (setcdr last nil)) (set (quote --cl-completions--) (sort (symbol-value (quote --cl-completions--)) (quote string-lessp))) (if completion-annotate-function (set (quote --cl-completions--) (mapcar (function ...) (symbol-value ...)))) (save-current-buffer (set-buffer standard-output) (set (make-local-variable (quote completion-base-position)) (list (+ ... base-size) nil))) (display-completion-list (symbol-value (quote --cl-completions--))))) (minibuffer-hide-completions) (ding) (minibuffer-message (if (symbol-value (quote --cl-completions--)) "Sole completion" "No completions"))) nil)
  (let ((--cl-completions-- (completion-all-completions (symbol-value (quote --cl-string--)) minibuffer-completion-table minibuffer-completion-predicate (- (point) (field-beginning))))) (progn (setq a (symbol-value (quote --cl-completions--))) (message nil) (if (and (symbol-value (quote --cl-completions--)) (or (consp (cdr (symbol-value ...))) (not (equal (car ...) (symbol-value ...))))) (let* ((last (last (symbol-value ...))) (base-size (cdr last)) (display-buffer-mark-dedicated (quote soft))) (with-output-to-temp-buffer "*Completions*" (if last (setcdr last nil)) (set (quote --cl-completions--) (sort (symbol-value ...) (quote string-lessp))) (if completion-annotate-function (set (quote --cl-completions--) (mapcar ... ...))) (save-current-buffer (set-buffer standard-output) (set (make-local-variable ...) (list ... nil))) (display-completion-list (symbol-value (quote --cl-completions--))))) (minibuffer-hide-completions) (ding) (minibuffer-message (if (symbol-value (quote --cl-completions--)) "Sole completion" "No completions"))) nil))
  (let ((--cl-string-- (field-string))) (let ((--cl-completions-- (completion-all-completions (symbol-value (quote --cl-string--)) minibuffer-completion-table minibuffer-completion-predicate (- (point) (field-beginning))))) (progn (setq a (symbol-value (quote --cl-completions--))) (message nil) (if (and (symbol-value (quote --cl-completions--)) (or (consp (cdr ...)) (not (equal ... ...)))) (let* ((last (last ...)) (base-size (cdr last)) (display-buffer-mark-dedicated (quote soft))) (with-output-to-temp-buffer "*Completions*" (if last (setcdr last nil)) (set (quote --cl-completions--) (sort ... ...)) (if completion-annotate-function (set ... ...)) (save-current-buffer (set-buffer standard-output) (set ... ...)) (display-completion-list (symbol-value ...)))) (minibuffer-hide-completions) (ding) (minibuffer-message (if (symbol-value (quote --cl-completions--)) "Sole completion" "No completions"))) nil)))
  (let ((--cl-start-- (field-beginning))) (let ((--cl-string-- (field-string))) (let ((--cl-completions-- (completion-all-completions (symbol-value (quote --cl-string--)) minibuffer-completion-table minibuffer-completion-predicate (- (point) (field-beginning))))) (progn (setq a (symbol-value (quote --cl-completions--))) (message nil) (if (and (symbol-value (quote --cl-completions--)) (or (consp ...) (not ...))) (let* ((last ...) (base-size ...) (display-buffer-mark-dedicated ...)) (with-output-to-temp-buffer "*Completions*" (if last ...) (set ... ...) (if completion-annotate-function ...) (save-current-buffer ... ...) (display-completion-list ...))) (minibuffer-hide-completions) (ding) (minibuffer-message (if (symbol-value ...) "Sole completion" "No completions"))) nil))))
  (lexical-let ((start (field-beginning))) (lexical-let ((string (field-string))) (lexical-let ((completions (completion-all-completions string minibuffer-completion-table minibuffer-completion-predicate (- (point) (field-beginning))))) (setq a completions) (message nil) (if (and completions (or (consp (cdr completions)) (not (equal ... string)))) (let* ((last (last completions)) (base-size (cdr last)) (display-buffer-mark-dedicated (quote soft))) (with-output-to-temp-buffer "*Completions*" (when last (setcdr last nil)) (setq completions (sort completions ...)) (when completion-annotate-function (setq completions ...)) (with-current-buffer standard-output (set ... ...)) (display-completion-list completions))) (minibuffer-hide-completions) (ding) (minibuffer-message (if completions "Sole completion" "No completions"))) nil)))
  (lexical-let* ((start (field-beginning)) (string (field-string)) (completions (completion-all-completions string minibuffer-completion-table minibuffer-completion-predicate (- (point) (field-beginning))))) (setq a completions) (message nil) (if (and completions (or (consp (cdr completions)) (not (equal (car completions) string)))) (let* ((last (last completions)) (base-size (cdr last)) (display-buffer-mark-dedicated (quote soft))) (with-output-to-temp-buffer "*Completions*" (when last (setcdr last nil)) (setq completions (sort completions (quote string-lessp))) (when completion-annotate-function (setq completions (mapcar (lambda ... ...) completions))) (with-current-buffer standard-output (set (make-local-variable (quote completion-base-position)) (list (+ start base-size) nil))) (display-completion-list completions))) (minibuffer-hide-completions) (ding) (minibuffer-message (if completions "Sole completion" "No completions"))) nil)
  minibuffer-completion-help()
  (if (cond ((eql completion-auto-help (quote lazy)) (eq this-command last-command)) (t completion-auto-help)) (minibuffer-completion-help) (minibuffer-message "Next char not unique"))
  (cond ((and (not (condition-case nil (consp (nthcdr completion-cycle-threshold comps)) (error nil))) (consp (cdr comps))) (progn (set (quote --cl-completed--) t) (setq exact t)) (setq completion-all-sorted-completions comps) (minibuffer-force-complete)) ((symbol-value (quote --cl-completed--)) (minibuffer-hide-completions)) ((not exact) (if (cond ((eql completion-auto-help (quote lazy)) (eq this-command last-command)) (t completion-auto-help)) (minibuffer-completion-help) (minibuffer-message "Next char not unique"))) ((eq this-command last-command) (if completion-auto-help (minibuffer-completion-help))))
  (let ((exact (test-completion (symbol-value (quote --cl-completion--)) minibuffer-completion-table minibuffer-completion-predicate)) (comps (if (and completion-cycle-threshold (or (not (symbol-value ...)) (< (car ...) (symbol-value ...)))) (completion-all-sorted-completions)))) (setq completion-all-sorted-completions nil) (cond ((and (not (condition-case nil (consp (nthcdr completion-cycle-threshold comps)) (error nil))) (consp (cdr comps))) (progn (set (quote --cl-completed--) t) (setq exact t)) (setq completion-all-sorted-completions comps) (minibuffer-force-complete)) ((symbol-value (quote --cl-completed--)) (minibuffer-hide-completions)) ((not exact) (if (cond ((eql completion-auto-help (quote lazy)) (eq this-command last-command)) (t completion-auto-help)) (minibuffer-completion-help) (minibuffer-message "Next char not unique"))) ((eq this-command last-command) (if completion-auto-help (minibuffer-completion-help)))) (minibuffer--bitset (symbol-value (quote --cl-completed--)) t exact))
  (if (not (or (symbol-value (quote --cl-unchanged--)) (symbol-value (quote --cl-completed--)))) (completion--do-completion try-completion-function) (let ((exact (test-completion (symbol-value (quote --cl-completion--)) minibuffer-completion-table minibuffer-completion-predicate)) (comps (if (and completion-cycle-threshold (or (not ...) (< ... ...))) (completion-all-sorted-completions)))) (setq completion-all-sorted-completions nil) (cond ((and (not (condition-case nil (consp ...) (error nil))) (consp (cdr comps))) (progn (set (quote --cl-completed--) t) (setq exact t)) (setq completion-all-sorted-completions comps) (minibuffer-force-complete)) ((symbol-value (quote --cl-completed--)) (minibuffer-hide-completions)) ((not exact) (if (cond ((eql completion-auto-help ...) (eq this-command last-command)) (t completion-auto-help)) (minibuffer-completion-help) (minibuffer-message "Next char not unique"))) ((eq this-command last-command) (if completion-auto-help (minibuffer-completion-help)))) (minibuffer--bitset (symbol-value (quote --cl-completed--)) t exact)))
  (progn (if (symbol-value (quote --cl-unchanged--)) (goto-char (symbol-value (quote --cl-end--))) (completion--replace (symbol-value (quote --cl-beg--)) (symbol-value (quote --cl-end--)) (symbol-value (quote --cl-completion--)))) (forward-char (- (symbol-value (quote --cl-comp-pos--)) (length (symbol-value (quote --cl-completion--))))) (if (not (or (symbol-value (quote --cl-unchanged--)) (symbol-value (quote --cl-completed--)))) (completion--do-completion try-completion-function) (let ((exact (test-completion (symbol-value (quote --cl-completion--)) minibuffer-completion-table minibuffer-completion-predicate)) (comps (if (and completion-cycle-threshold (or ... ...)) (completion-all-sorted-completions)))) (setq completion-all-sorted-completions nil) (cond ((and (not (condition-case nil ... ...)) (consp (cdr comps))) (progn (set (quote --cl-completed--) t) (setq exact t)) (setq completion-all-sorted-completions comps) (minibuffer-force-complete)) ((symbol-value (quote --cl-completed--)) (minibuffer-hide-completions)) ((not exact) (if (cond (... ...) (t completion-auto-help)) (minibuffer-completion-help) (minibuffer-message "Next char not unique"))) ((eq this-command last-command) (if completion-auto-help (minibuffer-completion-help)))) (minibuffer--bitset (symbol-value (quote --cl-completed--)) t exact))))
  (let ((--cl-unchanged-- (eq t (compare-strings (symbol-value (quote --cl-completion--)) nil nil (symbol-value (quote --cl-string--)) nil nil nil)))) (progn (if (symbol-value (quote --cl-unchanged--)) (goto-char (symbol-value (quote --cl-end--))) (completion--replace (symbol-value (quote --cl-beg--)) (symbol-value (quote --cl-end--)) (symbol-value (quote --cl-completion--)))) (forward-char (- (symbol-value (quote --cl-comp-pos--)) (length (symbol-value (quote --cl-completion--))))) (if (not (or (symbol-value (quote --cl-unchanged--)) (symbol-value (quote --cl-completed--)))) (completion--do-completion try-completion-function) (let ((exact (test-completion (symbol-value ...) minibuffer-completion-table minibuffer-completion-predicate)) (comps (if (and completion-cycle-threshold ...) (completion-all-sorted-completions)))) (setq completion-all-sorted-completions nil) (cond ((and (not ...) (consp ...)) (progn (set ... t) (setq exact t)) (setq completion-all-sorted-completions comps) (minibuffer-force-complete)) ((symbol-value (quote --cl-completed--)) (minibuffer-hide-completions)) ((not exact) (if (cond ... ...) (minibuffer-completion-help) (minibuffer-message "Next char not unique"))) ((eq this-command last-command) (if completion-auto-help (minibuffer-completion-help)))) (minibuffer--bitset (symbol-value (quote --cl-completed--)) t exact)))))
  (let ((--cl-completed-- (not (eq t (compare-strings (symbol-value (quote --cl-completion--)) nil nil (symbol-value (quote --cl-string--)) nil nil t))))) (let ((--cl-unchanged-- (eq t (compare-strings (symbol-value (quote --cl-completion--)) nil nil (symbol-value (quote --cl-string--)) nil nil nil)))) (progn (if (symbol-value (quote --cl-unchanged--)) (goto-char (symbol-value (quote --cl-end--))) (completion--replace (symbol-value (quote --cl-beg--)) (symbol-value (quote --cl-end--)) (symbol-value (quote --cl-completion--)))) (forward-char (- (symbol-value (quote --cl-comp-pos--)) (length (symbol-value (quote --cl-completion--))))) (if (not (or (symbol-value (quote --cl-unchanged--)) (symbol-value (quote --cl-completed--)))) (completion--do-completion try-completion-function) (let ((exact (test-completion ... minibuffer-completion-table minibuffer-completion-predicate)) (comps (if ... ...))) (setq completion-all-sorted-completions nil) (cond ((and ... ...) (progn ... ...) (setq completion-all-sorted-completions comps) (minibuffer-force-complete)) ((symbol-value ...) (minibuffer-hide-completions)) ((not exact) (if ... ... ...)) ((eq this-command last-command) (if completion-auto-help ...))) (minibuffer--bitset (symbol-value (quote --cl-completed--)) t exact))))))
  (let ((--cl-completion-- (car (symbol-value (quote --cl-comp--))))) (let ((--cl-completed-- (not (eq t (compare-strings (symbol-value ...) nil nil (symbol-value ...) nil nil t))))) (let ((--cl-unchanged-- (eq t (compare-strings (symbol-value ...) nil nil (symbol-value ...) nil nil nil)))) (progn (if (symbol-value (quote --cl-unchanged--)) (goto-char (symbol-value (quote --cl-end--))) (completion--replace (symbol-value (quote --cl-beg--)) (symbol-value (quote --cl-end--)) (symbol-value (quote --cl-completion--)))) (forward-char (- (symbol-value (quote --cl-comp-pos--)) (length (symbol-value ...)))) (if (not (or (symbol-value ...) (symbol-value ...))) (completion--do-completion try-completion-function) (let ((exact ...) (comps ...)) (setq completion-all-sorted-completions nil) (cond (... ... ... ...) (... ...) (... ...) (... ...)) (minibuffer--bitset (symbol-value ...) t exact)))))))
  (let ((--cl-comp-pos-- (cdr (symbol-value (quote --cl-comp--))))) (let ((--cl-completion-- (car (symbol-value (quote --cl-comp--))))) (let ((--cl-completed-- (not (eq t (compare-strings ... nil nil ... nil nil t))))) (let ((--cl-unchanged-- (eq t (compare-strings ... nil nil ... nil nil nil)))) (progn (if (symbol-value (quote --cl-unchanged--)) (goto-char (symbol-value ...)) (completion--replace (symbol-value ...) (symbol-value ...) (symbol-value ...))) (forward-char (- (symbol-value ...) (length ...))) (if (not (or ... ...)) (completion--do-completion try-completion-function) (let (... ...) (setq completion-all-sorted-completions nil) (cond ... ... ... ...) (minibuffer--bitset ... t exact))))))))
  (cond ((null (symbol-value (quote --cl-comp--))) (minibuffer-hide-completions) (ding) (minibuffer-message "No match") (minibuffer--bitset nil nil nil)) ((eq t (symbol-value (quote --cl-comp--))) (minibuffer-hide-completions) (goto-char (field-end)) (minibuffer--bitset nil nil t)) (t (let ((--cl-comp-pos-- (cdr (symbol-value (quote --cl-comp--))))) (let ((--cl-completion-- (car (symbol-value ...)))) (let ((--cl-completed-- (not ...))) (let ((--cl-unchanged-- ...)) (progn (if ... ... ...) (forward-char ...) (if ... ... ...))))))))
  (let ((--cl-comp-- (funcall (or try-completion-function (quote completion-try-completion)) (symbol-value (quote --cl-string--)) minibuffer-completion-table minibuffer-completion-predicate (- (point) (symbol-value (quote --cl-beg--)))))) (cond ((null (symbol-value (quote --cl-comp--))) (minibuffer-hide-completions) (ding) (minibuffer-message "No match") (minibuffer--bitset nil nil nil)) ((eq t (symbol-value (quote --cl-comp--))) (minibuffer-hide-completions) (goto-char (field-end)) (minibuffer--bitset nil nil t)) (t (let ((--cl-comp-pos-- (cdr (symbol-value ...)))) (let ((--cl-completion-- (car ...))) (let ((--cl-completed-- ...)) (let (...) (progn ... ... ...))))))))
  (let ((--cl-string-- (buffer-substring (symbol-value (quote --cl-beg--)) (symbol-value (quote --cl-end--))))) (let ((--cl-comp-- (funcall (or try-completion-function (quote completion-try-completion)) (symbol-value (quote --cl-string--)) minibuffer-completion-table minibuffer-completion-predicate (- (point) (symbol-value (quote --cl-beg--)))))) (cond ((null (symbol-value (quote --cl-comp--))) (minibuffer-hide-completions) (ding) (minibuffer-message "No match") (minibuffer--bitset nil nil nil)) ((eq t (symbol-value (quote --cl-comp--))) (minibuffer-hide-completions) (goto-char (field-end)) (minibuffer--bitset nil nil t)) (t (let ((--cl-comp-pos-- (cdr ...))) (let ((--cl-completion-- ...)) (let (...) (let ... ...))))))))
  (let ((--cl-end-- (field-end))) (let ((--cl-string-- (buffer-substring (symbol-value (quote --cl-beg--)) (symbol-value (quote --cl-end--))))) (let ((--cl-comp-- (funcall (or try-completion-function (quote completion-try-completion)) (symbol-value (quote --cl-string--)) minibuffer-completion-table minibuffer-completion-predicate (- (point) (symbol-value ...))))) (cond ((null (symbol-value (quote --cl-comp--))) (minibuffer-hide-completions) (ding) (minibuffer-message "No match") (minibuffer--bitset nil nil nil)) ((eq t (symbol-value (quote --cl-comp--))) (minibuffer-hide-completions) (goto-char (field-end)) (minibuffer--bitset nil nil t)) (t (let ((--cl-comp-pos-- ...)) (let (...) (let ... ...))))))))
  (let ((--cl-beg-- (field-beginning))) (let ((--cl-end-- (field-end))) (let ((--cl-string-- (buffer-substring (symbol-value (quote --cl-beg--)) (symbol-value (quote --cl-end--))))) (let ((--cl-comp-- (funcall (or try-completion-function ...) (symbol-value ...) minibuffer-completion-table minibuffer-completion-predicate (- ... ...)))) (cond ((null (symbol-value ...)) (minibuffer-hide-completions) (ding) (minibuffer-message "No match") (minibuffer--bitset nil nil nil)) ((eq t (symbol-value ...)) (minibuffer-hide-completions) (goto-char (field-end)) (minibuffer--bitset nil nil t)) (t (let (...) (let ... ...))))))))
  (lexical-let ((beg (field-beginning))) (lexical-let ((end (field-end))) (lexical-let ((string (buffer-substring beg end))) (lexical-let ((comp (funcall (or try-completion-function ...) string minibuffer-completion-table minibuffer-completion-predicate (- ... beg)))) (cond ((null comp) (minibuffer-hide-completions) (ding) (minibuffer-message "No match") (minibuffer--bitset nil nil nil)) ((eq t comp) (minibuffer-hide-completions) (goto-char (field-end)) (minibuffer--bitset nil nil t)) (t (lexical-let* (... ... ... ...) (if unchanged ... ...) (forward-char ...) (if ... ... ...))))))))
  (lexical-let* ((beg (field-beginning)) (end (field-end)) (string (buffer-substring beg end)) (comp (funcall (or try-completion-function (quote completion-try-completion)) string minibuffer-completion-table minibuffer-completion-predicate (- (point) beg)))) (cond ((null comp) (minibuffer-hide-completions) (ding) (minibuffer-message "No match") (minibuffer--bitset nil nil nil)) ((eq t comp) (minibuffer-hide-completions) (goto-char (field-end)) (minibuffer--bitset nil nil t)) (t (lexical-let* ((comp-pos (cdr comp)) (completion (car comp)) (completed (not (eq t ...))) (unchanged (eq t (compare-strings completion nil nil string nil nil nil)))) (if unchanged (goto-char end) (completion--replace beg end completion)) (forward-char (- comp-pos (length completion))) (if (not (or unchanged completed)) (completion--do-completion try-completion-function) (let ((exact ...) (comps ...)) (setq completion-all-sorted-completions nil) (cond (... ... ... ...) (completed ...) (... ...) (... ...)) (minibuffer--bitset completed t exact)))))))
  completion--do-completion()
  (let ((--cl-var-- (completion--do-completion))) (cond ((eql --cl-var-- (quote 0)) nil) ((eql --cl-var-- (quote 1)) (minibuffer-message "Sole completion") t) ((eql --cl-var-- (quote 3)) (minibuffer-message "Complete, but not unique") t) (t t)))
  (case (completion--do-completion) (0 nil) (1 (minibuffer-message "Sole completion") t) (3 (minibuffer-message "Complete, but not unique") t) (t t))
  (cond ((window-live-p minibuffer-scroll-window) (let ((window minibuffer-scroll-window)) (with-current-buffer (window-buffer window) (if (pos-visible-in-window-p (point-max) window) (set-window-start window (point-min) nil) (scroll-other-window)) nil))) (completion-all-sorted-completions (minibuffer-force-complete) t) (t (case (completion--do-completion) (0 nil) (1 (minibuffer-message "Sole completion") t) (3 (minibuffer-message "Complete, but not unique") t) (t t))))
  minibuffer-complete()
  call-interactively(minibuffer-complete nil nil)
  completing-read("Describe function (default try-completion): " [edebug-toggle-save-selected-window edebug-install-read-eval-functions retrieve-tag inhibit-debug-on-entry edebug-stack cl-setf-do-store widget-field-end widget-princ-to-string x-select-enable-primary change-log-search-tag-name change-log-mode-abbrev-table xlfd-tight-regexp log-buf file-name-shadow-tty-properties cl-declarations-or-string cl-type-spec font-lock-regexp-grouping-backslash rmail-primary-inbox-list model name-props diff-find-source-location change-log-start-entry-re Set\ Conditional\ Breakpoint extra-name file-or-dir-list vc-sentinel-movepoint add-log-file-name widget-default-get global-edebug-prefix loop-clause menu-bar-showhide-fringe-ind-mixed :button-face widget-link-prefix change-log-function noreuse edebug-outside-buffer vc-annotate-parent-display-mode edebug-where cl-maphash tree-equal create-fontset-from-ascii-font help-package whitespace-insert-value widget-editable-list-insert-before Previous\ Topic Go-nonstop convert-widget Eval edebug-trace cdaar ...] fboundp t nil nil "try-completion")
  (setq val (completing-read (if fn (format "Describe function (default %s): " fn) "Describe function: ") obarray (quote fboundp) t nil nil (and fn (symbol-name fn))))
  (let ((fn (function-called-at-point)) (enable-recursive-minibuffers t) val) (setq val (completing-read (if fn (format "Describe function (default %s): " fn) "Describe function: ") obarray (quote fboundp) t nil nil (and fn (symbol-name fn)))) (list (if (equal val "") fn (intern val))))
  call-interactively(describe-function nil nil)

The list apparently being completed is this:

(#("pop-to-mark-command" 0 4 (font-lock-face completions-common-part) 4 5 (font-lock-face completions-first-difference)) #("pop-tag-mark" 0 4 (font-lock-face completions-common-part) 4 5 (font-lock-face completions-first-difference)) #("pop-global-mark" 0 4 (font-lock-face completions-common-part) 4 5 (font-lock-face completions-first-difference)) #("pop-to-buffer" 0 4 (font-lock-face completions-common-part) 4 5 (font-lock-face completions-first-difference)) #("pop-mark" 0 4 (font-lock-face completions-common-part) 4 5 (font-lock-face completions-first-difference)) . 0)

  
  
-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen

bzr sync problems? (was: Re: Error with completion)

[Lars Magne Ingebrigtsen]

I wonder whether this has something to do with it:

[larsi@beatriz:~/src/emacs]$ bzr update
Tree is up to date at revision 101948.
[larsi@beatriz:~/src/emacs]$ cat .bzr/branch/branch.conf 
parent_location = http://bzr.savannah.gnu.org/r/emacs/trunk/

The latest revision has gotten way further than that.  Is this a bzr
sync problem between the devel and non-devel repositories or something?

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen

Re: bzr sync problems? (was: Re: Error with completion)

[Andreas Schwab]

Lars Magne Ingebrigtsen <larsi@gnus.org> writes:

> I wonder whether this has something to do with it:
>
> [larsi@beatriz:~/src/emacs]$ bzr update
> Tree is up to date at revision 101948.
> [larsi@beatriz:~/src/emacs]$ cat .bzr/branch/branch.conf 
> parent_location = http://bzr.savannah.gnu.org/r/emacs/trunk/

In any case, you don't want to use http any more.

> The latest revision has gotten way further than that.  Is this a bzr
> sync problem between the devel and non-devel repositories or something?

Did you pull the latest revisions?

Andreas.

-- 
Andreas Schwab, schwab@linux-m68k.org
GPG Key fingerprint = 58CA 54C7 6D53 942B 1756  01D3 44D5 214B 8276 4ED5
"And now for something completely different."

Re: bzr sync problems?

[Lars Magne Ingebrigtsen]

Andreas Schwab <schwab@linux-m68k.org> writes:

> Lars Magne Ingebrigtsen <larsi@gnus.org> writes:
>
>> I wonder whether this has something to do with it:
>>
>> [larsi@beatriz:~/src/emacs]$ bzr update
>> Tree is up to date at revision 101948.
>> [larsi@beatriz:~/src/emacs]$ cat .bzr/branch/branch.conf 
>> parent_location = http://bzr.savannah.gnu.org/r/emacs/trunk/
>
> In any case, you don't want to use http any more.

I'm just using what

http://savannah.gnu.org/projects/emacs/

says that a non-developer checkout should use.  What's the correct
non-devel checkout if that information is wrong?

>> The latest revision has gotten way further than that.  Is this a bzr
>> sync problem between the devel and non-devel repositories or something?
>
> Did you pull the latest revisions?

[larsi@beatriz:~/src/emacs]$ bzr update
Tree is up to date at revision 101948.

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen

Re: bzr sync problems?

[Lars Magne Ingebrigtsen]

Lars Magne Ingebrigtsen <larsi@gnus.org> writes:

> [larsi@beatriz:~/src/emacs]$ bzr update
> Tree is up to date at revision 101948.

Oh, it's "bzr pull" if you're using this kind of, er, unbound?  bound?
repo.  Never mind.

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen

Re: bzr sync problems?

[Christoph]

On 10/14/2010 06:15 AM, Lars Magne Ingebrigtsen wrote:

> I'm just using what
>
> http://savannah.gnu.org/projects/emacs/
>
> says that a non-developer checkout should use.  What's the correct
> non-devel checkout if that information is wrong?

bzr branch bzr://bzr.savannah.gnu.org/emacs/trunk

This page should probably be updated.

Re: bzr sync problems?

[Chong Yidong]

Christoph <cschol2112@googlemail.com> writes:

> On 10/14/2010 06:15 AM, Lars Magne Ingebrigtsen wrote:
>
>> I'm just using what
>>
>> http://savannah.gnu.org/projects/emacs/
>>
>> says that a non-developer checkout should use.  What's the correct
>> non-devel checkout if that information is wrong?
>
> bzr branch bzr://bzr.savannah.gnu.org/emacs/trunk
>
> This page should probably be updated.

I've just updated it.  Thanks.

Re: bzr sync problems?

[Vinicius Jose Latorre]

>> I'm just using what
>>
>> http://savannah.gnu.org/projects/emacs/
>>
>> says that a non-developer checkout should use.  What's the correct
>> non-devel checkout if that information is wrong?
>
> bzr branch bzr://bzr.savannah.gnu.org/emacs/trunk
>
> This page should probably be updated.

bzr branch bzr+ssh://USERNAME@bzr.savannah.gnu.org/emacs/trunk

That's what is said in

https://savannah.gnu.org/bzr/?group=emacs

But I'm not getting to update.

Re: bzr sync problems?

[Christoph]

On 10/14/2010 8:13 PM, Vinicius Jose Latorre wrote:

> bzr branch bzr+ssh://USERNAME@bzr.savannah.gnu.org/emacs/trunk
>
> That's what is said in
>
> https://savannah.gnu.org/bzr/?group=emacs
>
> But I'm not getting to update.

Do you have a USERNAME?

Re: bzr sync problems?

[Vinicius Jose Latorre]

>> bzr branch bzr+ssh://USERNAME@bzr.savannah.gnu.org/emacs/trunk
>>
>> That's what is said in
>>
>> https://savannah.gnu.org/bzr/?group=emacs
>>
>> But I'm not getting to update.
>
> Do you have a USERNAME?

Yes

Re: bzr sync problems?

[Andreas Schwab]

Vinicius Jose Latorre <viniciusjl@ig.com.br> writes:

> But I'm not getting to update.

What does "not getting to update" mean?

Andreas.

-- 
Andreas Schwab, schwab@linux-m68k.org
GPG Key fingerprint = 58CA 54C7 6D53 942B 1756  01D3 44D5 214B 8276 4ED5
"And now for something completely different."

Re: bzr sync problems?

[Vinicius Jose Latorre]

>> But I'm not getting to update.
>>      
> What does "not getting to update" mean?
>    

Always return the following message:

$ bzr update
Tree is up to date at revision 101961.

Re: bzr sync problems?

[Andreas Schwab]

Vinicius Jose Latorre <viniciusjl@ig.com.br> writes:

>>> But I'm not getting to update.
>>>      
>> What does "not getting to update" mean?
>>    
>
> Always return the following message:
>
> $ bzr update
> Tree is up to date at revision 101961.

Did you pull the latest revisions?

Andreas.

-- 
Andreas Schwab, schwab@linux-m68k.org
GPG Key fingerprint = 58CA 54C7 6D53 942B 1756  01D3 44D5 214B 8276 4ED5
"And now for something completely different."

Re: bzr sync problems?

[Vinicius Jose Latorre]

Andreas Schwab wrote:
> Vinicius Jose Latorre<viniciusjl@ig.com.br>  writes:
>
>    
>>>> But I'm not getting to update.
>>>>
>>>>          
>>> What does "not getting to update" mean?
>>>
>>>        
>> Always return the following message:
>>
>> $ bzr update
>> Tree is up to date at revision 101961.
>>      
> Did you pull the latest revisions?
>    

I made what Eli suggested:

bzr bind bzr+ssh://USERNAME@bzr.savannah.gnu.org/emacs/trunk

And now "bzr update" is working!!

Re: bzr sync problems?

[Eli Zaretskii]

> Date: Fri, 15 Oct 2010 20:21:28 -0300
> From: Vinicius Jose Latorre <viniciusjl@ig.com.br>
> Cc: Christoph <cschol2112@googlemail.com>, emacs-devel@gnu.org
> 
> I made what Eli suggested:
> 
> bzr bind bzr+ssh://USERNAME@bzr.savannah.gnu.org/emacs/trunk
> 
> And now "bzr update" is working!!

Note that with latest versions of Bazaar (2.2.x and later, I think)
you can create a bound branch in one go, "bzr branch --bind".  This
might help all those who do not yet have a trunk mirror on their
machines.

Re: bzr sync problems?

[Eli Zaretskii]

> Date: Thu, 14 Oct 2010 23:13:07 -0300
> From: Vinicius Jose Latorre <viniciusjl@ig.com.br>
> Cc: emacs-devel@gnu.org
> 
> bzr branch bzr+ssh://USERNAME@bzr.savannah.gnu.org/emacs/trunk
> 
> That's what is said in
> 
> https://savannah.gnu.org/bzr/?group=emacs
> 
> But I'm not getting to update.

Probably because the branch was not bound to upstream.  If you want to
leave it unbound, use "bzr merge --pull" instead of "bzr update".  But
that's not the recommended workflow.  If you want to go by the
recommended workflow, do this:

  bzr bind bzr+ssh://USERNAME@bzr.savannah.gnu.org/emacs/trunk

This is needed only once; thereafter you will be able to use "bzr up".

Re: bzr sync problems?

[Vinicius Jose Latorre]

Eli Zaretskii wrote:
>> Date: Thu, 14 Oct 2010 23:13:07 -0300
>> From: Vinicius Jose Latorre<viniciusjl@ig.com.br>
>> Cc: emacs-devel@gnu.org
>>
>> bzr branch bzr+ssh://USERNAME@bzr.savannah.gnu.org/emacs/trunk
>>
>> That's what is said in
>>
>> https://savannah.gnu.org/bzr/?group=emacs
>>
>> But I'm not getting to update.
>>      
> Probably because the branch was not bound to upstream.  If you want to
> leave it unbound, use "bzr merge --pull" instead of "bzr update".  But
> that's not the recommended workflow.  If you want to go by the
> recommended workflow, do this:
>
>    bzr bind bzr+ssh://USERNAME@bzr.savannah.gnu.org/emacs/trunk
>
> This is needed only once; thereafter you will be able to use "bzr up".
>    

It worked!!!

Thanks

Re: bzr sync problems?

[Andreas Schwab]

Lars Magne Ingebrigtsen <larsi@gnus.org> writes:

> What's the correct non-devel checkout if that information is wrong?

It's not wrong, just suboptimal.

Andreas.

-- 
Andreas Schwab, schwab@linux-m68k.org
GPG Key fingerprint = 58CA 54C7 6D53 942B 1756  01D3 44D5 214B 8276 4ED5
"And now for something completely different."