* Error with completion
@ 2010-10-14 11:39 Lars Magne Ingebrigtsen
2010-10-14 11:47 ` bzr sync problems? (was: Re: Error with completion) Lars Magne Ingebrigtsen
0 siblings, 1 reply; 18+ messages in thread
From: Lars Magne Ingebrigtsen @ 2010-10-14 11:39 UTC (permalink / raw)
To: emacs-devel
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
^ permalink raw reply [flat|nested] 18+ messages in thread
* bzr sync problems? (was: Re: Error with completion)
2010-10-14 11:39 Error with completion Lars Magne Ingebrigtsen
@ 2010-10-14 11:47 ` Lars Magne Ingebrigtsen
2010-10-14 12:09 ` Andreas Schwab
0 siblings, 1 reply; 18+ messages in thread
From: Lars Magne Ingebrigtsen @ 2010-10-14 11:47 UTC (permalink / raw)
To: emacs-devel
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
^ permalink raw reply [flat|nested] 18+ messages in thread
* Re: bzr sync problems? (was: Re: Error with completion)
2010-10-14 11:47 ` bzr sync problems? (was: Re: Error with completion) Lars Magne Ingebrigtsen
@ 2010-10-14 12:09 ` Andreas Schwab
2010-10-14 12:15 ` bzr sync problems? Lars Magne Ingebrigtsen
0 siblings, 1 reply; 18+ messages in thread
From: Andreas Schwab @ 2010-10-14 12:09 UTC (permalink / raw)
To: emacs-devel
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."
^ permalink raw reply [flat|nested] 18+ messages in thread
* Re: bzr sync problems?
2010-10-14 12:09 ` Andreas Schwab
@ 2010-10-14 12:15 ` Lars Magne Ingebrigtsen
2010-10-14 12:18 ` Lars Magne Ingebrigtsen
` (2 more replies)
0 siblings, 3 replies; 18+ messages in thread
From: Lars Magne Ingebrigtsen @ 2010-10-14 12:15 UTC (permalink / raw)
To: emacs-devel
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
^ permalink raw reply [flat|nested] 18+ messages in thread
* Re: bzr sync problems?
2010-10-14 12:15 ` bzr sync problems? Lars Magne Ingebrigtsen
@ 2010-10-14 12:18 ` Lars Magne Ingebrigtsen
2010-10-14 12:27 ` Christoph
2010-10-14 12:50 ` Andreas Schwab
2 siblings, 0 replies; 18+ messages in thread
From: Lars Magne Ingebrigtsen @ 2010-10-14 12:18 UTC (permalink / raw)
To: emacs-devel
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
^ permalink raw reply [flat|nested] 18+ messages in thread
* Re: bzr sync problems?
2010-10-14 12:15 ` bzr sync problems? Lars Magne Ingebrigtsen
2010-10-14 12:18 ` Lars Magne Ingebrigtsen
@ 2010-10-14 12:27 ` Christoph
2010-10-14 14:04 ` Chong Yidong
2010-10-15 2:13 ` Vinicius Jose Latorre
2010-10-14 12:50 ` Andreas Schwab
2 siblings, 2 replies; 18+ messages in thread
From: Christoph @ 2010-10-14 12:27 UTC (permalink / raw)
To: emacs-devel
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.
^ permalink raw reply [flat|nested] 18+ messages in thread
* Re: bzr sync problems?
2010-10-14 12:27 ` Christoph
@ 2010-10-14 14:04 ` Chong Yidong
2010-10-15 2:13 ` Vinicius Jose Latorre
1 sibling, 0 replies; 18+ messages in thread
From: Chong Yidong @ 2010-10-14 14:04 UTC (permalink / raw)
To: Christoph; +Cc: emacs-devel
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.
^ permalink raw reply [flat|nested] 18+ messages in thread
* Re: bzr sync problems?
2010-10-14 12:27 ` Christoph
2010-10-14 14:04 ` Chong Yidong
@ 2010-10-15 2:13 ` Vinicius Jose Latorre
2010-10-15 2:16 ` Christoph
` (2 more replies)
1 sibling, 3 replies; 18+ messages in thread
From: Vinicius Jose Latorre @ 2010-10-15 2:13 UTC (permalink / raw)
To: Christoph; +Cc: emacs-devel
>> 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.
^ permalink raw reply [flat|nested] 18+ messages in thread
* Re: bzr sync problems?
2010-10-15 2:13 ` Vinicius Jose Latorre
@ 2010-10-15 2:16 ` Christoph
2010-10-15 2:38 ` Vinicius Jose Latorre
2010-10-15 8:00 ` Andreas Schwab
2010-10-15 9:37 ` Eli Zaretskii
2 siblings, 1 reply; 18+ messages in thread
From: Christoph @ 2010-10-15 2:16 UTC (permalink / raw)
To: Vinicius Jose Latorre; +Cc: emacs-devel
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?
^ permalink raw reply [flat|nested] 18+ messages in thread
* Re: bzr sync problems?
2010-10-15 2:13 ` Vinicius Jose Latorre
2010-10-15 2:16 ` Christoph
@ 2010-10-15 8:00 ` Andreas Schwab
2010-10-15 11:49 ` Vinicius Jose Latorre
2010-10-15 9:37 ` Eli Zaretskii
2 siblings, 1 reply; 18+ messages in thread
From: Andreas Schwab @ 2010-10-15 8:00 UTC (permalink / raw)
To: Vinicius Jose Latorre; +Cc: Christoph, emacs-devel
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."
^ permalink raw reply [flat|nested] 18+ messages in thread
* Re: bzr sync problems?
2010-10-15 8:00 ` Andreas Schwab
@ 2010-10-15 11:49 ` Vinicius Jose Latorre
2010-10-15 11:53 ` Andreas Schwab
0 siblings, 1 reply; 18+ messages in thread
From: Vinicius Jose Latorre @ 2010-10-15 11:49 UTC (permalink / raw)
To: Andreas Schwab; +Cc: Christoph, emacs-devel
>> 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.
^ permalink raw reply [flat|nested] 18+ messages in thread
* Re: bzr sync problems?
2010-10-15 11:49 ` Vinicius Jose Latorre
@ 2010-10-15 11:53 ` Andreas Schwab
2010-10-15 23:21 ` Vinicius Jose Latorre
0 siblings, 1 reply; 18+ messages in thread
From: Andreas Schwab @ 2010-10-15 11:53 UTC (permalink / raw)
To: Vinicius Jose Latorre; +Cc: Christoph, emacs-devel
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."
^ permalink raw reply [flat|nested] 18+ messages in thread
* Re: bzr sync problems?
2010-10-15 11:53 ` Andreas Schwab
@ 2010-10-15 23:21 ` Vinicius Jose Latorre
2010-10-16 7:18 ` Eli Zaretskii
0 siblings, 1 reply; 18+ messages in thread
From: Vinicius Jose Latorre @ 2010-10-15 23:21 UTC (permalink / raw)
To: Andreas Schwab; +Cc: Christoph, emacs-devel
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!!
^ permalink raw reply [flat|nested] 18+ messages in thread
* Re: bzr sync problems?
2010-10-15 23:21 ` Vinicius Jose Latorre
@ 2010-10-16 7:18 ` Eli Zaretskii
0 siblings, 0 replies; 18+ messages in thread
From: Eli Zaretskii @ 2010-10-16 7:18 UTC (permalink / raw)
To: Vinicius Jose Latorre; +Cc: cschol2112, schwab, emacs-devel
> 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.
^ permalink raw reply [flat|nested] 18+ messages in thread
* Re: bzr sync problems?
2010-10-15 2:13 ` Vinicius Jose Latorre
2010-10-15 2:16 ` Christoph
2010-10-15 8:00 ` Andreas Schwab
@ 2010-10-15 9:37 ` Eli Zaretskii
2010-10-15 11:45 ` Vinicius Jose Latorre
2 siblings, 1 reply; 18+ messages in thread
From: Eli Zaretskii @ 2010-10-15 9:37 UTC (permalink / raw)
To: Vinicius Jose Latorre; +Cc: cschol2112, emacs-devel
> 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".
^ permalink raw reply [flat|nested] 18+ messages in thread
* Re: bzr sync problems?
2010-10-15 9:37 ` Eli Zaretskii
@ 2010-10-15 11:45 ` Vinicius Jose Latorre
0 siblings, 0 replies; 18+ messages in thread
From: Vinicius Jose Latorre @ 2010-10-15 11:45 UTC (permalink / raw)
To: Eli Zaretskii; +Cc: cschol2112, emacs-devel
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
^ permalink raw reply [flat|nested] 18+ messages in thread
* Re: bzr sync problems?
2010-10-14 12:15 ` bzr sync problems? Lars Magne Ingebrigtsen
2010-10-14 12:18 ` Lars Magne Ingebrigtsen
2010-10-14 12:27 ` Christoph
@ 2010-10-14 12:50 ` Andreas Schwab
2 siblings, 0 replies; 18+ messages in thread
From: Andreas Schwab @ 2010-10-14 12:50 UTC (permalink / raw)
To: emacs-devel
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."
^ permalink raw reply [flat|nested] 18+ messages in thread
end of thread, other threads:[~2010-10-16 7:18 UTC | newest]
Thread overview: 18+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2010-10-14 11:39 Error with completion Lars Magne Ingebrigtsen
2010-10-14 11:47 ` bzr sync problems? (was: Re: Error with completion) Lars Magne Ingebrigtsen
2010-10-14 12:09 ` Andreas Schwab
2010-10-14 12:15 ` bzr sync problems? Lars Magne Ingebrigtsen
2010-10-14 12:18 ` Lars Magne Ingebrigtsen
2010-10-14 12:27 ` Christoph
2010-10-14 14:04 ` Chong Yidong
2010-10-15 2:13 ` Vinicius Jose Latorre
2010-10-15 2:16 ` Christoph
2010-10-15 2:38 ` Vinicius Jose Latorre
2010-10-15 8:00 ` Andreas Schwab
2010-10-15 11:49 ` Vinicius Jose Latorre
2010-10-15 11:53 ` Andreas Schwab
2010-10-15 23:21 ` Vinicius Jose Latorre
2010-10-16 7:18 ` Eli Zaretskii
2010-10-15 9:37 ` Eli Zaretskii
2010-10-15 11:45 ` Vinicius Jose Latorre
2010-10-14 12:50 ` Andreas Schwab
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.