* bug#16808: 24.3.50; an error when completing M-x ... commands.
@ 2014-02-19 11:23 Nicolas Richard
2014-02-19 11:40 ` Andreas Schwab
0 siblings, 1 reply; 6+ messages in thread
From: Nicolas Richard @ 2014-02-19 11:23 UTC (permalink / raw)
To: 16808
This is not from emacs -Q, but the patch seems obvious. If you want an
actual reproducible recipe, I can try to make one.
Here's a diff :
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -1371,7 +1371,7 @@ appear to be a match."
(concat before ext after)
table predicate (1+ point) md))
exts))))
- (when (and (= 1 (length comps) (consp (car comps))))
+ (when (and (= 1 (length comps)) (consp (car comps)))
(setq comp (car comps)))))
;; Completing a single word is actually more difficult than completing
Here's the backtrace:
Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p t)
=(1 1 t)
(and (= 1 (length comps) (consp (car comps))))
(if (and (= 1 (length comps) (consp (car comps)))) (progn (setq comp (car comps))))
(let* ((exts (mapcar (function (lambda (str) (propertize str (quote completion-try-word) t))) (quote (" " "-")))) (before (substring string 0 point)) (after (substring string point)) (comps (delete nil (mapcar (function (lambda (ext) (completion-try-completion ... table predicate ... md))) exts)))) (if (and (= 1 (length comps) (consp (car comps)))) (progn (setq comp (car comps)))))
(progn (let* ((exts (mapcar (function (lambda (str) (propertize str ... t))) (quote (" " "-")))) (before (substring string 0 point)) (after (substring string point)) (comps (delete nil (mapcar (function (lambda ... ...)) exts)))) (if (and (= 1 (length comps) (consp (car comps)))) (progn (setq comp (car comps))))))
(if (= (length string) (length (car comp))) (progn (let* ((exts (mapcar (function (lambda ... ...)) (quote (" " "-")))) (before (substring string 0 point)) (after (substring string point)) (comps (delete nil (mapcar (function ...) exts)))) (if (and (= 1 (length comps) (consp (car comps)))) (progn (setq comp (car comps)))))))
(if (not (consp comp)) comp (if (= (length string) (length (car comp))) (progn (let* ((exts (mapcar (function ...) (quote ...))) (before (substring string 0 point)) (after (substring string point)) (comps (delete nil (mapcar ... exts)))) (if (and (= 1 (length comps) (consp ...))) (progn (setq comp (car comps))))))) (let* ((comppoint (cdr comp)) (completion (car comp)) (before (substring string 0 point)) (combined (concat before "\n" completion))) (if (string-match "\\(.+\\)\n.*?\\1" combined) (progn (let* ((prefix (match-string 1 before)) (rem (substring combined ...)) (after (substring string point)) (suffix (if ... ...))) (if (and (or suffix ...) (string-match ... completion) (eq ... comppoint) (string-match "\\W" completion ...) (> comppoint ...)) (progn (let ... ... ...)))))) (cons completion comppoint)))
(let ((comp (completion-try-completion string table predicate point md))) (if (not (consp comp)) comp (if (= (length string) (length (car comp))) (progn (let* ((exts (mapcar ... ...)) (before (substring string 0 point)) (after (substring string point)) (comps (delete nil ...))) (if (and (= 1 ... ...)) (progn (setq comp ...)))))) (let* ((comppoint (cdr comp)) (completion (car comp)) (before (substring string 0 point)) (combined (concat before "\n" completion))) (if (string-match "\\(.+\\)\n.*?\\1" combined) (progn (let* ((prefix ...) (rem ...) (after ...) (suffix ...)) (if (and ... ... ... ... ...) (progn ...))))) (cons completion comppoint))))
completion--try-word-completion("custom" [global-whitespace-newline-mode-map :binddn lm-verify bookmark-old-default-file speedbar-extract-one-symbol vc-next-comment --cl-block-dmassign-profs-charge--cmacro-- queued speedbar-update-speed bookmarks-already-loaded hi-lock--hashcons last-window-conf preview-clearout-buffer parsefunc bookmark-send-edited-annotation lasttbl hi-lock--unused-faces dframe-suppress-message-flag speedbar-buffer org-table-formula-handle-first/last-rc longest speedbar-vc-indicator speedbar-file-face skipheadrule pop-win browse-url-mozilla-sentinel diary-button-face gnus-draft-send-all-messages calendar-goto-hebrew-date speedbar-directory-face e5afba07-f73e-3b3f-9099-f51224ee8ead Create\ TAGS\ File url-queue-inhibit-cookiesp lm-get-package-name speedbar-stealthy-function-list backend-article-number shr-tag-d1dfcf3f-0b0c-332a-bcc0-87a851b570ff julian-year apropos-files-scanned hi-lock-overlay-regexp org-table-TBLFM-begin ldap-encode-string bookmark-get-bookmark n100 nextline org-table-force-dataline ins group-info speedbar-sort-tags time-utc-diff ...] commandp 6 (metadata))
funcall(completion--try-word-completion "custom" [global-whitespace-newline-mode-map :binddn lm-verify bookmark-old-default-file speedbar-extract-one-symbol vc-next-comment --cl-block-dmassign-profs-charge--cmacro-- queued speedbar-update-speed bookmarks-already-loaded hi-lock--hashcons last-window-conf preview-clearout-buffer parsefunc bookmark-send-edited-annotation lasttbl hi-lock--unused-faces dframe-suppress-message-flag speedbar-buffer org-table-formula-handle-first/last-rc longest speedbar-vc-indicator speedbar-file-face skipheadrule pop-win browse-url-mozilla-sentinel diary-button-face gnus-draft-send-all-messages calendar-goto-hebrew-date speedbar-directory-face e5afba07-f73e-3b3f-9099-f51224ee8ead Create\ TAGS\ File url-queue-inhibit-cookiesp lm-get-package-name speedbar-stealthy-function-list backend-article-number shr-tag-d1dfcf3f-0b0c-332a-bcc0-87a851b570ff julian-year apropos-files-scanned hi-lock-overlay-regexp org-table-TBLFM-begin ldap-encode-string bookmark-get-bookmark n100 nextline org-table-force-dataline ins group-info speedbar-sort-tags time-utc-diff ...] commandp 6 (metadata))
(let* ((string (buffer-substring beg end)) (md (completion--field-metadata beg)) (comp (funcall (or try-completion-function (quote completion-try-completion)) string minibuffer-completion-table minibuffer-completion-predicate (- (point) beg) md))) (cond ((null comp) (minibuffer-hide-completions) (if completion-fail-discreetly nil (ding) (completion--message "No match")) (minibuffer--bitset nil nil nil)) ((eq t comp) (minibuffer-hide-completions) (goto-char end) (completion--done string (quote finished) (if expect-exact nil "Sole completion")) (minibuffer--bitset nil nil t)) (t (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) (setq end (+ beg (length completion)))) (forward-char (- comp-pos (length completion))) (if (not (or unchanged completed)) (completion--do-completion beg end try-completion-function expect-exact) (let* ((exact ...) (threshold ...) (comps ...)) (completion--flush-all-sorted-completions) (cond (... ... ... ...) (completed ... ...) (... ...) (t ... ...)) (minibuffer--bitset completed t exact)))))))
completion--do-completion(5 11 completion--try-word-completion)
(let* ((val (completion--do-completion beg end (function completion--try-word-completion)))) (if (eq val (quote 0)) (let nil nil) (let nil t)))
(let ((minibuffer-completion-table collection) (minibuffer-completion-predicate predicate)) (let* ((val (completion--do-completion beg end (function completion--try-word-completion)))) (if (eq val (quote 0)) (let nil nil) (let nil t))))
completion-in-region--single-word(5 11 [global-whitespace-newline-mode-map :binddn lm-verify bookmark-old-default-file speedbar-extract-one-symbol vc-next-comment --cl-block-dmassign-profs-charge--cmacro-- queued speedbar-update-speed bookmarks-already-loaded hi-lock--hashcons last-window-conf preview-clearout-buffer parsefunc bookmark-send-edited-annotation lasttbl hi-lock--unused-faces dframe-suppress-message-flag speedbar-buffer org-table-formula-handle-first/last-rc longest speedbar-vc-indicator speedbar-file-face skipheadrule pop-win browse-url-mozilla-sentinel diary-button-face gnus-draft-send-all-messages calendar-goto-hebrew-date speedbar-directory-face e5afba07-f73e-3b3f-9099-f51224ee8ead Create\ TAGS\ File url-queue-inhibit-cookiesp lm-get-package-name speedbar-stealthy-function-list backend-article-number shr-tag-d1dfcf3f-0b0c-332a-bcc0-87a851b570ff julian-year apropos-files-scanned hi-lock-overlay-regexp org-table-TBLFM-begin ldap-encode-string bookmark-get-bookmark n100 nextline org-table-force-dataline ins group-info speedbar-sort-tags time-utc-diff ...] commandp)
minibuffer-complete-word()
call-interactively(minibuffer-complete-word nil nil)
command-execute(minibuffer-complete-word)
read-from-minibuffer("M-x " nil (keymap (10 . minibuffer-complete-and-exit) (13 . minibuffer-complete-and-exit) keymap (menu-bar keymap (minibuf "Minibuf" keymap (tab menu-item "Complete" minibuffer-complete :help "Complete as far as possible") (space menu-item "Complete Word" minibuffer-complete-word :help "Complete at most one word") (63 menu-item "List Completions" minibuffer-completion-help :help "Display all possible completions") "Minibuf")) (27 keymap (118 . switch-to-completions)) (prior . switch-to-completions) (63 . minibuffer-completion-help) (32 . minibuffer-complete-word) (9 . minibuffer-complete) keymap (menu-bar keymap (minibuf "Minibuf" keymap (previous menu-item "Previous History Item" previous-history-element :help "Put previous minibuffer history element in the minibuffer") (next menu-item "Next History Item" next-history-element :help "Put next minibuffer history element in the minibuffer") (isearch-backward menu-item "Isearch History Backward" isearch-backward :help "Incrementally search minibuffer history backward") (isearch-forward menu-item "Isearch History Forward" isearch-forward :help "Incrementally search minibuffer history forward") (return menu-item "Enter" exit-minibuffer :key-sequence "" :help "Terminate input and exit minibuffer") (quit menu-item "Quit" abort-recursive-edit :help "Abort input and exit minibuffer") "Minibuf")) (10 . exit-minibuffer) (13 . exit-minibuffer) (7 . abort-recursive-edit) (C-tab . file-cache-minibuffer-complete) (9 . self-insert-command) (XF86Back . previous-history-element) (up . previous-history-element) (prior . previous-history-element) (XF86Forward . next-history-element) (down . next-history-element) (next . next-history-element) (27 keymap (114 . previous-matching-history-element) (115 . next-matching-history-element) (112 . previous-history-element) (110 . next-history-element))) nil extended-command-history nil nil)
(let* ((minibuffer-completion-table collection) (minibuffer-completion-predicate predicate) (minibuffer-completion-confirm (if (eq require-match t) nil require-match)) (base-keymap (if require-match minibuffer-local-must-match-map minibuffer-local-completion-map)) (keymap (if (memq minibuffer-completing-file-name (quote (nil lambda))) base-keymap (make-composed-keymap minibuffer-local-filename-completion-map base-keymap))) (result (read-from-minibuffer prompt initial-input keymap nil hist def inherit-input-method))) (if (and (equal result "") def) (progn (setq result (if (consp def) (car def) def)))) result)
completing-read-default("M-x " [global-whitespace-newline-mode-map :binddn lm-verify bookmark-old-default-file speedbar-extract-one-symbol vc-next-comment --cl-block-dmassign-profs-charge--cmacro-- queued speedbar-update-speed bookmarks-already-loaded hi-lock--hashcons last-window-conf preview-clearout-buffer parsefunc bookmark-send-edited-annotation lasttbl hi-lock--unused-faces dframe-suppress-message-flag speedbar-buffer org-table-formula-handle-first/last-rc longest speedbar-vc-indicator speedbar-file-face skipheadrule pop-win browse-url-mozilla-sentinel diary-button-face gnus-draft-send-all-messages calendar-goto-hebrew-date speedbar-directory-face e5afba07-f73e-3b3f-9099-f51224ee8ead Create\ TAGS\ File url-queue-inhibit-cookiesp lm-get-package-name speedbar-stealthy-function-list backend-article-number shr-tag-d1dfcf3f-0b0c-332a-bcc0-87a851b570ff julian-year apropos-files-scanned hi-lock-overlay-regexp org-table-TBLFM-begin ldap-encode-string bookmark-get-bookmark n100 nextline org-table-force-dataline ins group-info speedbar-sort-tags time-utc-diff ...] commandp t nil extended-command-history nil nil)
completing-read("M-x " [global-whitespace-newline-mode-map :binddn lm-verify bookmark-old-default-file speedbar-extract-one-symbol vc-next-comment --cl-block-dmassign-profs-charge--cmacro-- queued speedbar-update-speed bookmarks-already-loaded hi-lock--hashcons last-window-conf preview-clearout-buffer parsefunc bookmark-send-edited-annotation lasttbl hi-lock--unused-faces dframe-suppress-message-flag speedbar-buffer org-table-formula-handle-first/last-rc longest speedbar-vc-indicator speedbar-file-face skipheadrule pop-win browse-url-mozilla-sentinel diary-button-face gnus-draft-send-all-messages calendar-goto-hebrew-date speedbar-directory-face e5afba07-f73e-3b3f-9099-f51224ee8ead Create\ TAGS\ File url-queue-inhibit-cookiesp lm-get-package-name speedbar-stealthy-function-list backend-article-number shr-tag-d1dfcf3f-0b0c-332a-bcc0-87a851b570ff julian-year apropos-files-scanned hi-lock-overlay-regexp org-table-TBLFM-begin ldap-encode-string bookmark-get-bookmark n100 nextline org-table-force-dataline ins group-info speedbar-sort-tags time-utc-diff ...] commandp t nil extended-command-history)
read-extended-command()
byte-code("\b\301 D\207" [current-prefix-arg read-extended-command] 2)
call-interactively(execute-extended-command nil nil)
command-execute(execute-extended-command)
In GNU Emacs 24.3.50.4 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
of 2014-02-18 on geodiff-mac3
Windowing system distributor `The X.Org Foundation', version 11.0.11304000
System Description: Gentoo Base System release 2.2
Configured using:
`configure --with-x-toolkit=lucid 'CFLAGS= -O0 -g3''
Important settings:
value of $LANG: fr_FR.UTF-8
locale-coding-system: utf-8-unix
Major mode: Magit
Minor modes in effect:
rcirc-track-minor-mode: t
diff-auto-refine-mode: t
global-semanticdb-minor-mode: t
global-semantic-idle-scheduler-mode: t
semantic-mode: t
minibuffer-depth-indicate-mode: t
yas/global-mode: t
projectile-global-mode: t
projectile-mode: t
dynamic-completion-mode: t
shell-dirtrack-mode: t
show-paren-mode: t
recentf-mode: t
winner-mode: t
global-discover-mode: t
discover-mode: t
display-time-mode: t
override-global-mode: t
tooltip-mode: t
electric-indent-mode: t
mouse-wheel-mode: t
file-name-shadow-mode: t
global-font-lock-mode: t
font-lock-mode: t
blink-cursor-mode: t
auto-composition-mode: t
auto-encryption-mode: t
auto-compression-mode: t
buffer-read-only: t
column-number-mode: t
line-number-mode: t
transient-mark-mode: t
Recent input:
t o m SPC c C-p C-n c q C-p C-n C-x C-z <S-down> <left>
<left> <left> <S-up> C-g C-c <left> C-c <left> C-c
<right> C-c <right> C-c <right> c C-x b C-s <return>
C-x C-z C-n C-n C-n C-n C-n C-n C-v <C-end> <up> <up>
<up> f a <down> <down> <down> <up> <up> <up> <up> <up>
<up> <up> <up> <up> <up> <down> <down> <down> <end>
<home> R <return> M-& m a k e C-g C-x o M-f C-M-f C-M-b
C-f C-f C-f C-M-f C-M-f C-} <right> C-M-u C-M-f C-M-b
C-f C-f C-f C-f C-f C-M-f C-M-f C-x C-s C-x C-z <up>
<up> <tab> <down> <down> <down> <down> <down> <down>
<down> <down> <down> <down> <down> <down> <down> <down>
<down> <up> <up> <up> <up> <up> <up> <up> <up> <up>
<up> C-x o C-/ C-/ C-x o g C-x o C-x C-s C-x o g C-x
o ŧ C-p C-n C-M-a C-x C-x C-g C-x b e m a c s . e l
<return> <up> <up> M-< C-v C-s m i n i b u f f e r
C-s C-s C-s C-s C-s C-s C-s C-s C-s C-s C-s C-s C-s
C-r C-r C-l C-p C-a C-n C-s C-s C-p C-p C-a C-M-f C-x
C-s C-s C-s C-s C-s C-s C-s C-s C-s C-s C-s C-p M-<
C-s c o m p l e t i o n <home> C-M-SPC M-w ŧ C-x o
C-x o C-x b <return> C-/ C-/ <up> C-/ C-x C-s C-x o
g C-p C-p <tab> <down> <down> <down> <down> <down>
<down> <down> <down> <down> <down> <down> <end> <left>
<up> C-M-u C-M-u C-M-u M-x c u s t o m SPC C-x o <home>
C-x o <home> <S-right> <C-home> C-SPC <C-end> M-w q
M-x r e p o r t SPC e m <tab> <return>
Recent messages:
Mark set
Cleaning up the recentf list...done (0 removed)
Cleaning up the recentf list...done (0 removed)
Redo!
Undo!
Redo!
Saving file /home/youngfrog/sources/running-emacs/lisp/minibuffer.el...
Wrote /home/youngfrog/sources/running-emacs/lisp/minibuffer.el
Entering debugger...
Back to top level.
Load-path shadows:
/home/youngfrog/.emacs.d/elpa/magit-20140213.1249/magit-blame hides ~/sources/magit/magit-blame
/home/youngfrog/.emacs.d/elpa/magit-20140213.1249/magit-key-mode hides ~/sources/magit/magit-key-mode
/home/youngfrog/.emacs.d/elpa/magit-20140213.1249/magit-pkg hides ~/sources/magit/magit-pkg
/home/youngfrog/.emacs.d/elpa/magit-20140213.1249/magit-wip hides ~/sources/magit/magit-wip
/home/youngfrog/.emacs.d/elpa/git-commit-mode-20140125.1553/git-commit-mode hides ~/sources/magit/git-commit-mode
/home/youngfrog/.emacs.d/elpa/magit-20140213.1249/magit-autoloads hides ~/sources/magit/magit-autoloads
/home/youngfrog/.emacs.d/elpa/magit-20140213.1249/magit hides ~/sources/magit/magit
/home/youngfrog/.emacs.d/elpa/git-rebase-mode-20140125.1553/git-rebase-mode hides ~/sources/magit/git-rebase-mode
~/.emacs.d/lisp/asy-mode hides /usr/local/texlive/2012/texmf/asymptote/asy-mode
~/sources/org-mode/lisp/org-footnote hides /home/youngfrog/sources/running-emacs/lisp/org/org-footnote
~/sources/org-mode/lisp/ob-asymptote hides /home/youngfrog/sources/running-emacs/lisp/org/ob-asymptote
~/sources/org-mode/lisp/ob-sqlite hides /home/youngfrog/sources/running-emacs/lisp/org/ob-sqlite
~/sources/org-mode/lisp/ob-ditaa hides /home/youngfrog/sources/running-emacs/lisp/org/ob-ditaa
~/sources/org-mode/lisp/org-protocol hides /home/youngfrog/sources/running-emacs/lisp/org/org-protocol
~/sources/org-mode/lisp/ox-beamer hides /home/youngfrog/sources/running-emacs/lisp/org/ox-beamer
~/sources/org-mode/lisp/org-irc hides /home/youngfrog/sources/running-emacs/lisp/org/org-irc
~/sources/org-mode/lisp/ob-scheme hides /home/youngfrog/sources/running-emacs/lisp/org/ob-scheme
~/sources/org-mode/lisp/org-capture hides /home/youngfrog/sources/running-emacs/lisp/org/org-capture
~/sources/org-mode/lisp/ob-plantuml hides /home/youngfrog/sources/running-emacs/lisp/org/ob-plantuml
~/sources/org-mode/lisp/ox-html hides /home/youngfrog/sources/running-emacs/lisp/org/ox-html
~/sources/org-mode/lisp/org-table hides /home/youngfrog/sources/running-emacs/lisp/org/org-table
~/sources/org-mode/lisp/ob-eval hides /home/youngfrog/sources/running-emacs/lisp/org/ob-eval
~/sources/org-mode/lisp/ob-exp hides /home/youngfrog/sources/running-emacs/lisp/org/ob-exp
~/sources/org-mode/lisp/org-eshell hides /home/youngfrog/sources/running-emacs/lisp/org/org-eshell
~/sources/org-mode/lisp/ob-sql hides /home/youngfrog/sources/running-emacs/lisp/org/ob-sql
~/sources/org-mode/lisp/org-colview hides /home/youngfrog/sources/running-emacs/lisp/org/org-colview
~/sources/org-mode/lisp/ox-publish hides /home/youngfrog/sources/running-emacs/lisp/org/ox-publish
~/sources/org-mode/lisp/ob-comint hides /home/youngfrog/sources/running-emacs/lisp/org/ob-comint
~/sources/org-mode/lisp/org-element hides /home/youngfrog/sources/running-emacs/lisp/org/org-element
~/sources/org-mode/lisp/org-indent hides /home/youngfrog/sources/running-emacs/lisp/org/org-indent
~/sources/org-mode/lisp/ob-sass hides /home/youngfrog/sources/running-emacs/lisp/org/ob-sass
~/sources/org-mode/lisp/org-compat hides /home/youngfrog/sources/running-emacs/lisp/org/org-compat
~/sources/org-mode/lisp/org-list hides /home/youngfrog/sources/running-emacs/lisp/org/org-list
~/sources/org-mode/lisp/ox hides /home/youngfrog/sources/running-emacs/lisp/org/ox
~/sources/org-mode/lisp/ob-mscgen hides /home/youngfrog/sources/running-emacs/lisp/org/ob-mscgen
~/sources/org-mode/lisp/ob-keys hides /home/youngfrog/sources/running-emacs/lisp/org/ob-keys
~/sources/org-mode/lisp/org-info hides /home/youngfrog/sources/running-emacs/lisp/org/org-info
~/sources/org-mode/lisp/org-ctags hides /home/youngfrog/sources/running-emacs/lisp/org/org-ctags
~/sources/org-mode/lisp/org-habit hides /home/youngfrog/sources/running-emacs/lisp/org/org-habit
~/sources/org-mode/lisp/org-datetree hides /home/youngfrog/sources/running-emacs/lisp/org/org-datetree
~/sources/org-mode/lisp/ox-texinfo hides /home/youngfrog/sources/running-emacs/lisp/org/ox-texinfo
~/sources/org-mode/lisp/org-clock hides /home/youngfrog/sources/running-emacs/lisp/org/org-clock
~/sources/org-mode/lisp/org-bbdb hides /home/youngfrog/sources/running-emacs/lisp/org/org-bbdb
~/sources/org-mode/lisp/ob-maxima hides /home/youngfrog/sources/running-emacs/lisp/org/ob-maxima
~/sources/org-mode/lisp/ob-fortran hides /home/youngfrog/sources/running-emacs/lisp/org/ob-fortran
~/sources/org-mode/lisp/ob-picolisp hides /home/youngfrog/sources/running-emacs/lisp/org/ob-picolisp
~/sources/org-mode/lisp/ob-java hides /home/youngfrog/sources/running-emacs/lisp/org/ob-java
~/sources/org-mode/lisp/ox-icalendar hides /home/youngfrog/sources/running-emacs/lisp/org/ox-icalendar
~/sources/org-mode/lisp/org-gnus hides /home/youngfrog/sources/running-emacs/lisp/org/org-gnus
~/sources/org-mode/lisp/ob-table hides /home/youngfrog/sources/running-emacs/lisp/org/ob-table
~/sources/org-mode/lisp/ob-ocaml hides /home/youngfrog/sources/running-emacs/lisp/org/ob-ocaml
~/sources/org-mode/lisp/ob-tangle hides /home/youngfrog/sources/running-emacs/lisp/org/ob-tangle
~/sources/org-mode/lisp/ox-md hides /home/youngfrog/sources/running-emacs/lisp/org/ox-md
~/sources/org-mode/lisp/org-install hides /home/youngfrog/sources/running-emacs/lisp/org/org-install
~/sources/org-mode/lisp/ob-org hides /home/youngfrog/sources/running-emacs/lisp/org/ob-org
~/sources/org-mode/lisp/org-docview hides /home/youngfrog/sources/running-emacs/lisp/org/org-docview
~/sources/org-mode/lisp/org-timer hides /home/youngfrog/sources/running-emacs/lisp/org/org-timer
~/sources/org-mode/lisp/ob-makefile hides /home/youngfrog/sources/running-emacs/lisp/org/ob-makefile
~/sources/org-mode/lisp/ob-calc hides /home/youngfrog/sources/running-emacs/lisp/org/ob-calc
~/sources/org-mode/lisp/org-rmail hides /home/youngfrog/sources/running-emacs/lisp/org/org-rmail
~/sources/org-mode/lisp/org-plot hides /home/youngfrog/sources/running-emacs/lisp/org/org-plot
~/sources/org-mode/lisp/ob-haskell hides /home/youngfrog/sources/running-emacs/lisp/org/ob-haskell
~/sources/org-mode/lisp/ob-shen hides /home/youngfrog/sources/running-emacs/lisp/org/ob-shen
~/sources/org-mode/lisp/ox-latex hides /home/youngfrog/sources/running-emacs/lisp/org/ox-latex
~/sources/org-mode/lisp/org-mhe hides /home/youngfrog/sources/running-emacs/lisp/org/org-mhe
~/sources/org-mode/lisp/org-pcomplete hides /home/youngfrog/sources/running-emacs/lisp/org/org-pcomplete
~/sources/org-mode/lisp/org-mouse hides /home/youngfrog/sources/running-emacs/lisp/org/org-mouse
~/sources/org-mode/lisp/ox-man hides /home/youngfrog/sources/running-emacs/lisp/org/ox-man
~/sources/org-mode/lisp/org-archive hides /home/youngfrog/sources/running-emacs/lisp/org/org-archive
~/sources/org-mode/lisp/ox-ascii hides /home/youngfrog/sources/running-emacs/lisp/org/ox-ascii
~/sources/org-mode/lisp/ob-python hides /home/youngfrog/sources/running-emacs/lisp/org/ob-python
~/sources/org-mode/lisp/ox-org hides /home/youngfrog/sources/running-emacs/lisp/org/ox-org
~/sources/org-mode/lisp/ob-gnuplot hides /home/youngfrog/sources/running-emacs/lisp/org/ob-gnuplot
~/sources/org-mode/lisp/org-agenda hides /home/youngfrog/sources/running-emacs/lisp/org/org-agenda
~/sources/org-mode/lisp/ob-core hides /home/youngfrog/sources/running-emacs/lisp/org/ob-core
~/sources/org-mode/lisp/ob-perl hides /home/youngfrog/sources/running-emacs/lisp/org/ob-perl
~/sources/org-mode/lisp/ob-octave hides /home/youngfrog/sources/running-emacs/lisp/org/ob-octave
~/sources/org-mode/lisp/org-crypt hides /home/youngfrog/sources/running-emacs/lisp/org/org-crypt
~/sources/org-mode/lisp/org-macs hides /home/youngfrog/sources/running-emacs/lisp/org/org-macs
~/sources/org-mode/lisp/org-w3m hides /home/youngfrog/sources/running-emacs/lisp/org/org-w3m
~/sources/org-mode/lisp/org-feed hides /home/youngfrog/sources/running-emacs/lisp/org/org-feed
~/sources/org-mode/lisp/org-mobile hides /home/youngfrog/sources/running-emacs/lisp/org/org-mobile
~/sources/org-mode/lisp/org-version hides /home/youngfrog/sources/running-emacs/lisp/org/org-version
~/sources/org-mode/lisp/ob-ledger hides /home/youngfrog/sources/running-emacs/lisp/org/ob-ledger
~/sources/org-mode/lisp/org-inlinetask hides /home/youngfrog/sources/running-emacs/lisp/org/org-inlinetask
~/sources/org-mode/lisp/ob-latex hides /home/youngfrog/sources/running-emacs/lisp/org/ob-latex
~/sources/org-mode/lisp/ob-dot hides /home/youngfrog/sources/running-emacs/lisp/org/ob-dot
~/sources/org-mode/lisp/ob-screen hides /home/youngfrog/sources/running-emacs/lisp/org/ob-screen
~/sources/org-mode/lisp/org-src hides /home/youngfrog/sources/running-emacs/lisp/org/org-src
~/sources/org-mode/lisp/ob-ruby hides /home/youngfrog/sources/running-emacs/lisp/org/ob-ruby
~/sources/org-mode/lisp/org-macro hides /home/youngfrog/sources/running-emacs/lisp/org/org-macro
~/sources/org-mode/lisp/ob hides /home/youngfrog/sources/running-emacs/lisp/org/ob
~/sources/org-mode/lisp/ob-io hides /home/youngfrog/sources/running-emacs/lisp/org/ob-io
~/sources/org-mode/lisp/ob-matlab hides /home/youngfrog/sources/running-emacs/lisp/org/ob-matlab
~/sources/org-mode/lisp/ob-ref hides /home/youngfrog/sources/running-emacs/lisp/org/ob-ref
~/sources/org-mode/lisp/org-bibtex hides /home/youngfrog/sources/running-emacs/lisp/org/org-bibtex
~/sources/org-mode/lisp/org-entities hides /home/youngfrog/sources/running-emacs/lisp/org/org-entities
~/sources/org-mode/lisp/org hides /home/youngfrog/sources/running-emacs/lisp/org/org
~/sources/org-mode/lisp/ob-R hides /home/youngfrog/sources/running-emacs/lisp/org/ob-R
~/sources/org-mode/lisp/ob-C hides /home/youngfrog/sources/running-emacs/lisp/org/ob-C
~/sources/org-mode/lisp/ob-lob hides /home/youngfrog/sources/running-emacs/lisp/org/ob-lob
~/sources/org-mode/lisp/ob-awk hides /home/youngfrog/sources/running-emacs/lisp/org/ob-awk
~/sources/org-mode/lisp/ob-clojure hides /home/youngfrog/sources/running-emacs/lisp/org/ob-clojure
~/sources/org-mode/lisp/org-faces hides /home/youngfrog/sources/running-emacs/lisp/org/org-faces
~/sources/org-mode/lisp/ox-odt hides /home/youngfrog/sources/running-emacs/lisp/org/ox-odt
~/sources/org-mode/lisp/ob-css hides /home/youngfrog/sources/running-emacs/lisp/org/ob-css
~/sources/org-mode/lisp/ob-lisp hides /home/youngfrog/sources/running-emacs/lisp/org/ob-lisp
~/sources/org-mode/lisp/ob-lilypond hides /home/youngfrog/sources/running-emacs/lisp/org/ob-lilypond
~/sources/org-mode/lisp/org-attach hides /home/youngfrog/sources/running-emacs/lisp/org/org-attach
~/sources/org-mode/lisp/ob-emacs-lisp hides /home/youngfrog/sources/running-emacs/lisp/org/ob-emacs-lisp
~/sources/org-mode/lisp/ob-scala hides /home/youngfrog/sources/running-emacs/lisp/org/ob-scala
~/sources/org-mode/lisp/ob-js hides /home/youngfrog/sources/running-emacs/lisp/org/ob-js
~/sources/org-mode/lisp/org-id hides /home/youngfrog/sources/running-emacs/lisp/org/org-id
~/sources/org-mode/lisp/org-loaddefs hides /home/youngfrog/sources/running-emacs/lisp/org/org-loaddefs
/home/youngfrog/.emacs.d/elpa/tabulated-list-0/tabulated-list hides /home/youngfrog/sources/running-emacs/lisp/emacs-lisp/tabulated-list
Features:
(shadow emacsbug sendmail ldap apropos lisp-mnt url-queue hippie-exp
find-dired eieio-opt speedbar sb-image dframe pcmpl-unix pcmpl-gnu
dmassign hi-lock bookmark cal-move tabify image-file org-capture
cal-china lunar solar cal-dst cal-bahai cal-islam cal-hebrew holidays
hol-loaddefs diary-lib diary-loaddefs cal-iso nnir gnus-fun whitespace
xterm shr-color color shr browse-url gnus-draft locate org-table
flyspell ispell reftex-dcr reftex-auc reftex reftex-vars preview
prv-emacs tex-buf font-latex magit-key-mode magit view autorevert
filenotify git-rebase-mode git-commit-mode server log-edit pcvs-util
add-log timezone url-http url-gw url-cache url-auth google-translate
json mule-util help-mode org-colview pp flow-fill mm-archive sort smiley
gnus-cite mail-extr qp gnus-async gnus-bcklg gnus-ml nndraft nnmh
nnmaildir gnutls nnfolder parse-time time-stamp netrc gnus-agent
gnus-srvr gnus-score score-mode nnvirtual gnus-msg gnus-art mm-uu
mml2015 mm-view mml-smime smime dig nntp gnus-cache vc-git org-indent
org-rmail org-mhe org-irc org-info org-gnus org-docview org-bibtex
bibtex org-bbdb org-w3m org-agenda tramp-cache disp-table network-stream
starttls rcirc-color rcirc tramp-sh tramp tramp-compat tramp-loaddefs
trampver misearch multi-isearch paredit hideshow yf-asy asy-mode cc-mode
cc-fonts cc-guess cc-menus cc-cmds cc-styles cc-align cc-engine cc-vars
cc-defs multiple-cursors mc-separate-operations rectangular-region-mode
mc-mark-pop mc-mark-more mc-cycle-cursors mc-edit-lines
multiple-cursors-core rect preview-latex smerge-mode diff-mode
yf/makeadefun semantic/db-mode semantic/db eieio-base semantic/idle
semantic/format ezimage semantic/tag-ls semantic/find semantic/ctxt
semantic/util-modes semantic/util semantic semantic/tag semantic/lex
semantic/fw mode-local cedet mb-depth autoinsert yasnippet assoc
projectile pkg-info epl grep compile dash s warnings completion ert ewoc
debug ob-R ob-shell shell windmove latexenc ox-latex ox-icalendar
ox-html table ox-ascii ox-publish ox org-element avl-tree org org-macro
org-footnote org-pcomplete pcomplete org-list org-faces org-entities
noutline outline org-version ob-emacs-lisp ob ob-tangle org-src ob-ref
ob-lob ob-table ob-keys ob-exp ob-comint comint ansi-color ob-core
ob-eval org-compat org-macs find-func gnus-sum nnoo gnus-group gnus-undo
nnmail mail-source gnus-start gnus-spec gnus-int gnus-range message
format-spec rfc822 mml mml-sec mm-decode mm-bodies mm-encode mail-parse
rfc2231 rfc2047 rfc2045 ietf-drums mailabbrev gmm-utils mailheader
gnus-win gnus gnus-ems nnheader mail-utils paren doc-view jka-compr
image-mode dired recentf tree-widget wid-edit latex tex-style tex dbus
crm ffap thingatpt winner ring cal-menu calendar cal-loaddefs
ampc-autoloads nlinum-autoloads sicp-autoloads finder-inf w3-autoloads
workspaces-autoloads wtf-autoloads pcase discover makey-key-mode
twittering-mode edmacro kmacro epa derived epg epg-config tls cl-macs gv
url url-proxy url-privacy url-expand url-methods url-history url-cookie
url-domsuf url-util url-parse auth-source eieio byte-opt eieio-core
gnus-util mm-util mail-prsvr password-cache url-vars mailcap xml cl
cl-loaddefs cl-lib time cus-start cus-load two-mode-mode tex-site
auto-loads org-loaddefs ido-hacks advice help-fns ido info easymenu
package use-package bytecomp byte-compile cconv bind-key easy-mmode
time-date tooltip electric uniquify ediff-hook vc-hooks lisp-float-type
mwheel x-win x-dnd tool-bar dnd fontset image regexp-opt fringe
tabulated-list newcomment lisp-mode prog-mode register page menu-bar
rfn-eshadow timer select scroll-bar mouse jit-lock font-lock syntax
facemenu font-core frame cham georgian utf-8-lang misc-lang vietnamese
tibetan thai tai-viet lao korean japanese hebrew greek romanian slovak
czech european ethiopic indian cyrillic chinese case-table epa-hook
jka-cmpr-hook help simple abbrev minibuffer nadvice loaddefs button
faces cus-face macroexp files text-properties overlay sha1 md5 base64
format env code-pages mule custom widget hashtable-print-readable
backquote make-network-process dbusbind gfilenotify dynamic-setting
system-font-setting font-render-setting x-toolkit x multi-tty emacs)
--
Nico.
^ permalink raw reply [flat|nested] 6+ messages in thread* bug#16808: 24.3.50; an error when completing M-x ... commands.
2014-02-19 11:23 bug#16808: 24.3.50; an error when completing M-x ... commands Nicolas Richard
@ 2014-02-19 11:40 ` Andreas Schwab
2014-02-19 14:31 ` Stefan Monnier
2014-02-19 15:03 ` Drew Adams
0 siblings, 2 replies; 6+ messages in thread
From: Andreas Schwab @ 2014-02-19 11:40 UTC (permalink / raw)
To: Nicolas Richard; +Cc: 16808
Nicolas Richard <theonewiththeevillook@yahoo.fr> writes:
> This is not from emacs -Q, but the patch seems obvious. If you want an
> actual reproducible recipe, I can try to make one.
>
> Here's a diff :
>
> --- a/lisp/minibuffer.el
> +++ b/lisp/minibuffer.el
> @@ -1371,7 +1371,7 @@ appear to be a match."
> (concat before ext after)
> table predicate (1+ point) md))
> exts))))
> - (when (and (= 1 (length comps) (consp (car comps))))
> + (when (and (= 1 (length comps)) (consp (car comps)))
(= 1 (length comps)) would be better written as (not (cdr comps)) in
this context.
Andreas.
--
Andreas Schwab, SUSE Labs, schwab@suse.de
GPG Key fingerprint = 0196 BAD8 1CE9 1970 F4BE 1748 E4D4 88E3 0EEA B9D7
"And now for something completely different."
^ permalink raw reply [flat|nested] 6+ messages in thread
* bug#16808: 24.3.50; an error when completing M-x ... commands.
2014-02-19 11:40 ` Andreas Schwab
@ 2014-02-19 14:31 ` Stefan Monnier
2014-02-24 15:03 ` Nicolas Richard
2014-02-19 15:03 ` Drew Adams
1 sibling, 1 reply; 6+ messages in thread
From: Stefan Monnier @ 2014-02-19 14:31 UTC (permalink / raw)
To: Andreas Schwab; +Cc: 16808, Nicolas Richard
>> - (when (and (= 1 (length comps) (consp (car comps))))
>> + (when (and (= 1 (length comps)) (consp (car comps)))
> (= 1 (length comps)) would be better written as (not (cdr comps)) in
> this context.
Both look good, please install,
Stefan
^ permalink raw reply [flat|nested] 6+ messages in thread* bug#16808: 24.3.50; an error when completing M-x ... commands.
2014-02-19 14:31 ` Stefan Monnier
@ 2014-02-24 15:03 ` Nicolas Richard
2014-02-24 15:42 ` Juanma Barranquero
0 siblings, 1 reply; 6+ messages in thread
From: Nicolas Richard @ 2014-02-24 15:03 UTC (permalink / raw)
To: Stefan Monnier; +Cc: 16808, Andreas Schwab, Nicolas Richard
Stefan Monnier <monnier@iro.umontreal.ca> writes:
>>> - (when (and (= 1 (length comps) (consp (car comps))))
>>> + (when (and (= 1 (length comps)) (consp (car comps)))
>> (= 1 (length comps)) would be better written as (not (cdr comps)) in
>> this context.
>
> Both look good, please install,
FWIW I'm unable to do that. If there's anything I can do to make
someone's life easier for installing I'll be happy to do so. Meanwhile,
here's an updated patch:
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index edc4c95..7f98005 100644
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -1371,7 +1371,7 @@ appear to be a match."
(concat before ext after)
table predicate (1+ point) md))
exts))))
- (when (and (= 1 (length comps) (consp (car comps))))
+ (when (and (null (cdr comps)) (consp (car comps)))
(setq comp (car comps)))))
;; Completing a single word is actually more difficult than completing
@@ -1451,7 +1451,7 @@ Return nil if there is no valid completion, else t."
(minibuffer-completion-predicate predicate))
(pcase (completion--do-completion beg end
#'completion--try-word-completion)
- (#b000 nil)
+ (#b000 nil)
(_ t))))
(defface completions-annotations '((t :inherit italic))
--
Nico.
^ permalink raw reply related [flat|nested] 6+ messages in thread
* bug#16808: 24.3.50; an error when completing M-x ... commands.
2014-02-19 11:40 ` Andreas Schwab
2014-02-19 14:31 ` Stefan Monnier
@ 2014-02-19 15:03 ` Drew Adams
1 sibling, 0 replies; 6+ messages in thread
From: Drew Adams @ 2014-02-19 15:03 UTC (permalink / raw)
To: Andreas Schwab, Nicolas Richard; +Cc: 16808
> (= 1 (length comps)) would be better written as (not (cdr comps)) in
> this context.
+1. Even (null (cdr comps)).
^ permalink raw reply [flat|nested] 6+ messages in thread
end of thread, other threads:[~2014-02-24 15:42 UTC | newest]
Thread overview: 6+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2014-02-19 11:23 bug#16808: 24.3.50; an error when completing M-x ... commands Nicolas Richard
2014-02-19 11:40 ` Andreas Schwab
2014-02-19 14:31 ` Stefan Monnier
2014-02-24 15:03 ` Nicolas Richard
2014-02-24 15:42 ` Juanma Barranquero
2014-02-19 15:03 ` Drew Adams
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).