From unknown Tue Aug 19 05:28:42 2025 X-Loop: help-debbugs@gnu.org Subject: bug#50603: 28.0.50; [PATCH] more vc-read-backend usage Resent-From: Manuel Giraud Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Wed, 15 Sep 2021 13:48:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 50603 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: patch To: 50603@debbugs.gnu.org X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Received: via spool by submit@debbugs.gnu.org id=B.163171364317935 (code B ref -1); Wed, 15 Sep 2021 13:48:02 +0000 Received: (at submit) by debbugs.gnu.org; 15 Sep 2021 13:47:23 +0000 Received: from localhost ([127.0.0.1]:51305 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1mQVFy-0004fC-UR for submit@debbugs.gnu.org; Wed, 15 Sep 2021 09:47:23 -0400 Received: from lists.gnu.org ([209.51.188.17]:58316) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1mQVFt-0004ey-OR for submit@debbugs.gnu.org; Wed, 15 Sep 2021 09:47:20 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:58982) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1mQVFr-0004Po-Ss for bug-gnu-emacs@gnu.org; Wed, 15 Sep 2021 09:47:17 -0400 Received: from ledu-giraud.fr ([51.159.28.247]:36671) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1mQVFn-00020R-4U for bug-gnu-emacs@gnu.org; Wed, 15 Sep 2021 09:47:13 -0400 Received: from elite.giraud ( [10.1.1.1]) by ledu-giraud.fr (OpenSMTPD) with ESMTPSA id 7802b789 (TLSv1.3:AEAD-AES256-GCM-SHA384:256:NO) for ; Wed, 15 Sep 2021 15:47:08 +0200 (CEST) From: Manuel Giraud Date: Wed, 15 Sep 2021 15:47:07 +0200 Message-ID: <87sfy63q90.fsf@elite.giraud> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/28.0.50 (berkeley-unix) MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Received-SPF: pass client-ip=51.159.28.247; envelope-from=manuel@ledu-giraud.fr; helo=ledu-giraud.fr X-Spam_score_int: -18 X-Spam_score: -1.9 X-Spam_bar: - X-Spam_report: (-1.9 / 5.0 requ) BAYES_00=-1.9, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-Spam-Score: -1.4 (-) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -2.4 (--) --=-=-= Content-Type: text/plain Hi, This add an optional parameter to vc-read-backend and use it where it makes sense. --=-=-= Content-Type: text/x-patch Content-Disposition: inline; filename=0001-more-vc-read-backend.patch >From dc7fcb64da4e7f2b07b6b962055c49dfe16a5c14 Mon Sep 17 00:00:00 2001 From: Manuel Giraud Date: Wed, 15 Sep 2021 15:32:32 +0200 Subject: [PATCH] more vc-read-backend. --- lisp/vc/vc.el | 25 +++++++------------------ 1 file changed, 7 insertions(+), 18 deletions(-) diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el index b3a5ff01cf..c88a796e56 100644 --- a/lisp/vc/vc.el +++ b/lisp/vc/vc.el @@ -1157,10 +1157,11 @@ vc-compatible-state (eq p q) (and (member p '(edited added removed)) (member q '(edited added removed))))) -(defun vc-read-backend (prompt) - (intern - (completing-read prompt (mapcar #'symbol-name vc-handled-backends) - nil 'require-match))) +(defun vc-read-backend (prompt &optional backends) + (let ((backends (or backends vc-handled-backends))) + (intern + (completing-read prompt (mapcar #'symbol-name backends) + nil 'require-match)))) ;; Here's the major entry point. @@ -1373,14 +1374,7 @@ vc-next-action (defun vc-create-repo (backend) "Create an empty repository in the current directory." - (interactive - (list - (intern - (upcase - (completing-read - "Create repository for: " - (mapcar (lambda (b) (list (downcase (symbol-name b)))) vc-handled-backends) - nil t))))) + (interactive (list (vc-read-backend "Create repository for: "))) (vc-call-backend backend 'create-repo)) ;;;###autoload @@ -2888,12 +2882,7 @@ vc-switch-backend (cond ((null others) (error "No other backend to switch to")) (current-prefix-arg - (intern - (upcase - (completing-read - (format "Switch to backend [%s]: " def) - (mapcar (lambda (b) (list (downcase (symbol-name b)))) backends) - nil t nil nil (downcase (symbol-name def)))))) + (vc-read-backend "Switch to backend: " backends)) (t def)))))) (unless (eq backend (vc-backend file)) (vc-file-clearprops file) -- 2.33.0 --=-=-= Content-Type: text/plain In GNU Emacs 28.0.50 (build 1, x86_64-unknown-openbsd7.0, X toolkit, cairo version 1.16.0, Xaw3d scroll bars) of 2021-09-13 built on elite.giraud Repository revision: 5ee05fa75d517fdd13c9795aa78e12489140e388 Repository branch: master Windowing system distributor 'The X.Org Foundation', version 11.0.12013000 System Description: OpenBSD elite.giraud 7.0 GENERIC.MP#211 amd64 Configured using: 'configure --prefix=/home/manuel/emacs --bindir=/home/manuel/bin --with-x-toolkit=athena --without-sound --without-json CPPFLAGS=-I/usr/local/include LDFLAGS=-L/usr/local/lib' Configured features: CAIRO DBUS FREETYPE GIF GLIB GMP GNUTLS GSETTINGS HARFBUZZ JPEG LCMS2 LIBOTF LIBXML2 M17N_FLT MODULES NOTIFY KQUEUE PDUMPER PNG RSVG THREADS TIFF TOOLKIT_SCROLL_BARS X11 XAW3D XDBE XIM XPM LUCID ZLIB Important settings: value of $LC_ALL: en_US.UTF-8 locale-coding-system: utf-8-unix Major mode: Dired by name Minor modes in effect: gnus-dired-mode: t global-git-commit-mode: t magit-auto-revert-mode: t show-paren-mode: t icomplete-mode: t display-time-mode: t shell-dirtrack-mode: t windmove-mode: t global-eldoc-mode: t electric-indent-mode: t mouse-wheel-mode: t file-name-shadow-mode: t global-font-lock-mode: t font-lock-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 indent-tabs-mode: t transient-mark-mode: t Load-path shadows: /home/manuel/.el/google-maps.el/google-maps hides /home/manuel/.el/google-maps /home/manuel/.emacs.d/elpa/magit-20210909.434/magit-section-pkg hides /home/manuel/.emacs.d/elpa/magit-section-20210829.1849/magit-section-pkg /home/manuel/.emacs.d/elpa/transient-20210819.2118/transient hides /home/manuel/emacs/share/emacs/28.0.50/lisp/transient Features: (org-agenda org-refile vc-filewise eieio-opt speedbar ezimage dframe shortdoc completion whitespace vc-dir ewoc log-view wdired term ehelp shadow emacsbug gnus-dired pulse tar-mode make-mode shr-color ispell help-fns radix-tree cl-print debug backtrace vc-mtn vc-hg vc-bzr vc-src vc-sccs magit-extras face-remap magit-submodule magit-obsolete magit-blame magit-stash magit-reflog magit-bisect magit-push magit-pull magit-fetch magit-clone magit-remote magit-commit magit-sequence magit-notes magit-worktree magit-tag magit-merge magit-branch magit-reset magit-files magit-refs magit-status magit magit-repos magit-apply magit-wip magit-log which-func imenu magit-diff smerge-mode diff git-commit rx log-edit pcvs-util magit-core magit-autorevert autorevert filenotify magit-margin magit-transient magit-process with-editor magit-mode transient magit-git magit-section magit-utils dash dabbrev vc-cvs vc-rcs vc misearch multi-isearch vc-git diff-mode bug-reference mailalias bbdb-message gnus-dup debbugs-gnu add-log debbugs soap-client warnings rng-xsd rng-dt rng-util xsd-regexp vc-dispatcher vc-svn sort gnus-cite mail-extr gnus-async gnus-bcklg gnus-ml gnus-topic cursor-sensor mm-archive url-http url-gw url-auth qp utf-7 imap rfc2104 nnrss mm-url nndoc nndraft nnmh gnutls network-stream nsm nnfolder bbdb-gnus nnml gnus-agent gnus-srvr gnus-score score-mode nnvirtual gnus-msg nntp gnus-cache w3m w3m-hist w3m-fb bookmark-w3m w3m-ems w3m-favicon w3m-image tab-line w3m-proc w3m-util cl-extra help-mode paredit paren icomplete time battery cus-load exwm-randr xcb-randr exwm-config exwm exwm-input xcb-keysyms exwm-manage exwm-floating xcb-cursor xcb-render exwm-layout exwm-workspace exwm-core xcb-ewmh xcb-icccm xcb xcb-xkb xcb-xproto xcb-types xcb-debug server modus-operandi-theme modus-themes pcase google-maps google-maps-static google-maps-geocode google-maps-base osm-mode url-cache gnuplot info-look transmission color calc-bin calc-ext calc calc-loaddefs rect calc-macs w3m-load mu4e mu4e-org mu4e-main mu4e-view mu4e-view-gnus gnus-art mm-uu mml2015 mm-view mml-smime smime dig gnus-sum gnus-group gnus-undo gnus-start gnus-dbus dbus gnus-cloud nnimap nnmail mail-source utf7 netrc nnoo gnus-spec gnus-int gnus-range gnus-win gnus nnheader wid-edit mu4e-view-common mu4e-headers mu4e-compose mu4e-context mu4e-draft mu4e-actions ido rfc2368 smtpmail sendmail mu4e-mark mu4e-proc mu4e-utils doc-view jka-compr image-mode exif mu4e-lists mu4e-message shr kinsoku svg xml dom flow-fill mule-util hl-line mu4e-vars message rmc puny rfc822 mml mml-sec epa derived epg rfc6068 epg-config gnus-util rmail rmail-loaddefs mm-decode mm-bodies mm-encode mail-parse rfc2231 rfc2047 rfc2045 mm-util ietf-drums mail-prsvr mail-utils gmm-utils mailheader mu4e-meta supercite regi bbdb-anniv diary-lib diary-loaddefs bbdb-mua bbdb-com crm mailabbrev bbdb bbdb-site timezone org ob ob-tangle ob-ref ob-lob ob-table ob-exp org-macro org-footnote org-src ob-comint org-pcomplete org-list org-faces org-entities org-version ob-emacs-lisp ob-core ob-eval org-table ol org-keys org-compat org-macs org-loaddefs find-func cal-menu calendar cal-loaddefs visual-basic-mode web-mode disp-table erlang-start smart-tabs-mode skeleton cc-mode cc-fonts cc-guess cc-menus cc-cmds cc-styles cc-align cc-engine cc-vars cc-defs movitz-slime cl slime-asdf grep slime-tramp tramp tramp-loaddefs trampver tramp-integration files-x tramp-compat shell pcomplete parse-time iso8601 time-date ls-lisp format-spec slime-fancy slime-indentation slime-cl-indent cl-indent slime-trace-dialog slime-fontifying-fu slime-package-fu slime-references slime-compiler-notes-tree advice slime-scratch slime-presentations bridge slime-macrostep macrostep slime-mdot-fu slime-enclosing-context slime-fuzzy slime-fancy-trace slime-fancy-inspector slime-c-p-c slime-editing-commands slime-autodoc slime-repl slime-parse slime compile text-property-search etags fileloop generator xref project arc-mode archive-mode noutline outline pp comint ansi-color ring hyperspec thingatpt slime-autoloads dired-aux dired-x dired dired-loaddefs edmacro kmacro windmove easy-mmode tex-site info package browse-url url url-proxy url-privacy url-expand url-methods url-history url-cookie url-domsuf url-util mailcap url-handlers url-parse auth-source cl-seq eieio eieio-core cl-macs eieio-loaddefs password-cache json subr-x map url-vars seq byte-opt gv bytecomp byte-compile cconv cl-loaddefs cl-lib iso-transl tooltip eldoc electric uniquify ediff-hook vc-hooks lisp-float-type mwheel term/x-win x-win term/common-win x-dnd tool-bar dnd fontset image regexp-opt fringe tabulated-list replace newcomment text-mode elisp-mode lisp-mode prog-mode register page tab-bar menu-bar rfn-eshadow isearch easymenu timer select scroll-bar mouse jit-lock font-lock syntax font-core term/tty-colors frame minibuffer cl-generic cham georgian utf-8-lang misc-lang vietnamese tibetan thai tai-viet lao korean japanese eucjp-ms cp51932 hebrew greek romanian slovak czech european ethiopic indian cyrillic chinese composite charscript charprop case-table epa-hook jka-cmpr-hook help simple abbrev obarray cl-preloaded nadvice button loaddefs faces cus-face macroexp files window text-properties overlay sha1 md5 base64 format env code-pages mule custom widget hashtable-print-readable backquote threads dbusbind kqueue lcms2 dynamic-setting system-font-setting font-render-setting cairo x-toolkit x multi-tty make-network-process emacs) Memory information: ((conses 16 1085709 184490) (symbols 48 72774 10) (strings 32 349500 12549) (string-bytes 1 10779365) (vectors 16 128492) (vector-slots 8 2949177 144104) (floats 8 3016 1061) (intervals 56 30248 1956) (buffers 992 85)) -- Manuel Giraud --=-=-=-- From unknown Tue Aug 19 05:28:42 2025 MIME-Version: 1.0 X-Mailer: MIME-tools 5.505 (Entity 5.505) X-Loop: help-debbugs@gnu.org From: help-debbugs@gnu.org (GNU bug Tracking System) To: Manuel Giraud Subject: bug#50603: closed (Re: bug#50603: 28.0.50; [PATCH] more vc-read-backend usage) Message-ID: References: <6bd39f88-b35c-167d-e32e-754a7c69fc15@yandex.ru> <87sfy63q90.fsf@elite.giraud> X-Gnu-PR-Message: they-closed 50603 X-Gnu-PR-Package: emacs X-Gnu-PR-Keywords: patch Reply-To: 50603@debbugs.gnu.org Date: Thu, 16 Sep 2021 23:03:08 +0000 Content-Type: multipart/mixed; boundary="----------=_1631833388-13903-1" This is a multi-part message in MIME format... ------------=_1631833388-13903-1 Content-Disposition: inline Content-Transfer-Encoding: quoted-printable Content-Type: text/plain; charset="utf-8" Your bug report #50603: 28.0.50; [PATCH] more vc-read-backend usage which was filed against the emacs package, has been closed. The explanation is attached below, along with your original report. If you require more details, please reply to 50603@debbugs.gnu.org. --=20 50603: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=3D50603 GNU Bug Tracking System Contact help-debbugs@gnu.org with problems ------------=_1631833388-13903-1 Content-Type: message/rfc822 Content-Disposition: inline Content-Transfer-Encoding: 7bit Received: (at 50603-done) by debbugs.gnu.org; 16 Sep 2021 23:02:55 +0000 Received: from localhost ([127.0.0.1]:57737 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1mR0P9-0003Z3-3H for submit@debbugs.gnu.org; Thu, 16 Sep 2021 19:02:55 -0400 Received: from mail-wm1-f51.google.com ([209.85.128.51]:37656) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1mR0O9-0003NT-ER for 50603-done@debbugs.gnu.org; Thu, 16 Sep 2021 19:02:01 -0400 Received: by mail-wm1-f51.google.com with SMTP id c8-20020a7bc008000000b002e6e462e95fso8529600wmb.2 for <50603-done@debbugs.gnu.org>; Thu, 16 Sep 2021 16:01:53 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20210112; h=sender:subject:to:references:from:message-id:date:user-agent :mime-version:in-reply-to:content-language:content-transfer-encoding; bh=+K9HUqh2qmpC4Ibm6wHm3TwL72Iscmh1F0VbbKXJJ9Q=; b=pCK28ZVzUXg/dYU6FluhDx8fJjJtsbTBBSrH00S2hkppXn7wVxPlN5D+gyH8l/X2Xx bxTQ4S0910wKgtGjVNg99zlllTWVdMgMzphmnPJEYHt/sz7NwvxgCnmV72fPU6R3HTUR AmCxSCwZwKaJisMdO6TLg5Am3/5Uehm3kaZ6RvYtNwnzgXm6w3N32keYeiTPW2LFLLpl 4a/WyQbAnVj8KMdZHfeCLBMOgchKsomJxxNpw+TR1S2qOU+kzWHdGKoX3rqajxNUFOCX vqK4cUz3iB7vl+WziYzFHIH34a6WtS/RcDAcStvEqIZUljwE7alDj2Bg85O/ZfD4lusD ZQFg== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; h=x-gm-message-state:sender:subject:to:references:from:message-id :date:user-agent:mime-version:in-reply-to:content-language :content-transfer-encoding; bh=+K9HUqh2qmpC4Ibm6wHm3TwL72Iscmh1F0VbbKXJJ9Q=; b=AkhkSTf8022pOo4upJUsuOpBFXKSjd3Iw2XtMeJZbf+KvgeXX2gNlXkNB/YSZHHnGP sZrnUCwudN8xM3bDo42ITYXiSlbyCOhSikRRqx400uqyd5U41A9v1oW2LZumUgGGoljc g8cfSIpfh3wEZXDVbNk1mYhBst5Yyf6NxijNffbthqqAXyB5o5RBr7+5P1J4ZNgdVv9z XZ8ysCBdoGYxmQ6RvLyfe7jyP/AYJ+QIXZqBe7b+H9UjsFRIOW9+eiUkD5ACjmMBlfTV KKomwOETXMSwmSCmqTiLy8jwSNqccqoNTSEZUP693S7RG+VC6Gwv52CvlL0STTLG3BOq wFbw== X-Gm-Message-State: AOAM5337gxWAPLGQLuAR7opOHNRvMu8RIDxbHvDKt4XIrGReKiryABmO yjWDGcSdMtW5miECpL/qv32WRRWB+ss= X-Google-Smtp-Source: ABdhPJxmvhLT11z7UoHGL2tRltPg8tLToYW/ahEVaUhbC26HipVleYL0tDJp3NdYp1lr2mQ0qHamjw== X-Received: by 2002:a1c:7713:: with SMTP id t19mr7455100wmi.162.1631833307387; Thu, 16 Sep 2021 16:01:47 -0700 (PDT) Received: from [192.168.0.6] ([46.251.119.176]) by smtp.googlemail.com with ESMTPSA id u13sm4129900wmq.33.2021.09.16.16.01.46 (version=TLS1_3 cipher=TLS_AES_128_GCM_SHA256 bits=128/128); Thu, 16 Sep 2021 16:01:47 -0700 (PDT) Subject: Re: bug#50603: 28.0.50; [PATCH] more vc-read-backend usage To: Manuel Giraud , 50603-done@debbugs.gnu.org References: <87sfy63q90.fsf@elite.giraud> From: Dmitry Gutov Message-ID: <6bd39f88-b35c-167d-e32e-754a7c69fc15@yandex.ru> Date: Fri, 17 Sep 2021 02:01:45 +0300 User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:78.0) Gecko/20100101 Thunderbird/78.13.0 MIME-Version: 1.0 In-Reply-To: <87sfy63q90.fsf@elite.giraud> Content-Type: text/plain; charset=utf-8; format=flowed Content-Language: en-US Content-Transfer-Encoding: 7bit X-Spam-Score: 0.4 (/) X-Debbugs-Envelope-To: 50603-done X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -0.6 (/) Version: 28.1 On 15.09.2021 16:47, Manuel Giraud wrote: > This add an optional parameter to vc-read-backend and use it where it > makes sense. Thanks. It changes the displayed list of backends a little. The affected commands until now showed it in lower case, which probably made the input easier. This just needed (completion-ignore-case t) and an extra arg, to work basically the same. ------------=_1631833388-13903-1 Content-Type: message/rfc822 Content-Disposition: inline Content-Transfer-Encoding: 7bit Received: (at submit) by debbugs.gnu.org; 15 Sep 2021 13:47:23 +0000 Received: from localhost ([127.0.0.1]:51305 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1mQVFy-0004fC-UR for submit@debbugs.gnu.org; Wed, 15 Sep 2021 09:47:23 -0400 Received: from lists.gnu.org ([209.51.188.17]:58316) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1mQVFt-0004ey-OR for submit@debbugs.gnu.org; Wed, 15 Sep 2021 09:47:20 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:58982) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1mQVFr-0004Po-Ss for bug-gnu-emacs@gnu.org; Wed, 15 Sep 2021 09:47:17 -0400 Received: from ledu-giraud.fr ([51.159.28.247]:36671) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1mQVFn-00020R-4U for bug-gnu-emacs@gnu.org; Wed, 15 Sep 2021 09:47:13 -0400 Received: from elite.giraud ( [10.1.1.1]) by ledu-giraud.fr (OpenSMTPD) with ESMTPSA id 7802b789 (TLSv1.3:AEAD-AES256-GCM-SHA384:256:NO) for ; Wed, 15 Sep 2021 15:47:08 +0200 (CEST) From: Manuel Giraud To: bug-gnu-emacs@gnu.org Subject: 28.0.50; [PATCH] more vc-read-backend usage Date: Wed, 15 Sep 2021 15:47:07 +0200 Message-ID: <87sfy63q90.fsf@elite.giraud> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/28.0.50 (berkeley-unix) MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Received-SPF: pass client-ip=51.159.28.247; envelope-from=manuel@ledu-giraud.fr; helo=ledu-giraud.fr X-Spam_score_int: -18 X-Spam_score: -1.9 X-Spam_bar: - X-Spam_report: (-1.9 / 5.0 requ) BAYES_00=-1.9, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-Spam-Score: -1.4 (-) X-Debbugs-Envelope-To: submit X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -2.4 (--) --=-=-= Content-Type: text/plain Hi, This add an optional parameter to vc-read-backend and use it where it makes sense. --=-=-= Content-Type: text/x-patch Content-Disposition: inline; filename=0001-more-vc-read-backend.patch >From dc7fcb64da4e7f2b07b6b962055c49dfe16a5c14 Mon Sep 17 00:00:00 2001 From: Manuel Giraud Date: Wed, 15 Sep 2021 15:32:32 +0200 Subject: [PATCH] more vc-read-backend. --- lisp/vc/vc.el | 25 +++++++------------------ 1 file changed, 7 insertions(+), 18 deletions(-) diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el index b3a5ff01cf..c88a796e56 100644 --- a/lisp/vc/vc.el +++ b/lisp/vc/vc.el @@ -1157,10 +1157,11 @@ vc-compatible-state (eq p q) (and (member p '(edited added removed)) (member q '(edited added removed))))) -(defun vc-read-backend (prompt) - (intern - (completing-read prompt (mapcar #'symbol-name vc-handled-backends) - nil 'require-match))) +(defun vc-read-backend (prompt &optional backends) + (let ((backends (or backends vc-handled-backends))) + (intern + (completing-read prompt (mapcar #'symbol-name backends) + nil 'require-match)))) ;; Here's the major entry point. @@ -1373,14 +1374,7 @@ vc-next-action (defun vc-create-repo (backend) "Create an empty repository in the current directory." - (interactive - (list - (intern - (upcase - (completing-read - "Create repository for: " - (mapcar (lambda (b) (list (downcase (symbol-name b)))) vc-handled-backends) - nil t))))) + (interactive (list (vc-read-backend "Create repository for: "))) (vc-call-backend backend 'create-repo)) ;;;###autoload @@ -2888,12 +2882,7 @@ vc-switch-backend (cond ((null others) (error "No other backend to switch to")) (current-prefix-arg - (intern - (upcase - (completing-read - (format "Switch to backend [%s]: " def) - (mapcar (lambda (b) (list (downcase (symbol-name b)))) backends) - nil t nil nil (downcase (symbol-name def)))))) + (vc-read-backend "Switch to backend: " backends)) (t def)))))) (unless (eq backend (vc-backend file)) (vc-file-clearprops file) -- 2.33.0 --=-=-= Content-Type: text/plain In GNU Emacs 28.0.50 (build 1, x86_64-unknown-openbsd7.0, X toolkit, cairo version 1.16.0, Xaw3d scroll bars) of 2021-09-13 built on elite.giraud Repository revision: 5ee05fa75d517fdd13c9795aa78e12489140e388 Repository branch: master Windowing system distributor 'The X.Org Foundation', version 11.0.12013000 System Description: OpenBSD elite.giraud 7.0 GENERIC.MP#211 amd64 Configured using: 'configure --prefix=/home/manuel/emacs --bindir=/home/manuel/bin --with-x-toolkit=athena --without-sound --without-json CPPFLAGS=-I/usr/local/include LDFLAGS=-L/usr/local/lib' Configured features: CAIRO DBUS FREETYPE GIF GLIB GMP GNUTLS GSETTINGS HARFBUZZ JPEG LCMS2 LIBOTF LIBXML2 M17N_FLT MODULES NOTIFY KQUEUE PDUMPER PNG RSVG THREADS TIFF TOOLKIT_SCROLL_BARS X11 XAW3D XDBE XIM XPM LUCID ZLIB Important settings: value of $LC_ALL: en_US.UTF-8 locale-coding-system: utf-8-unix Major mode: Dired by name Minor modes in effect: gnus-dired-mode: t global-git-commit-mode: t magit-auto-revert-mode: t show-paren-mode: t icomplete-mode: t display-time-mode: t shell-dirtrack-mode: t windmove-mode: t global-eldoc-mode: t electric-indent-mode: t mouse-wheel-mode: t file-name-shadow-mode: t global-font-lock-mode: t font-lock-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 indent-tabs-mode: t transient-mark-mode: t Load-path shadows: /home/manuel/.el/google-maps.el/google-maps hides /home/manuel/.el/google-maps /home/manuel/.emacs.d/elpa/magit-20210909.434/magit-section-pkg hides /home/manuel/.emacs.d/elpa/magit-section-20210829.1849/magit-section-pkg /home/manuel/.emacs.d/elpa/transient-20210819.2118/transient hides /home/manuel/emacs/share/emacs/28.0.50/lisp/transient Features: (org-agenda org-refile vc-filewise eieio-opt speedbar ezimage dframe shortdoc completion whitespace vc-dir ewoc log-view wdired term ehelp shadow emacsbug gnus-dired pulse tar-mode make-mode shr-color ispell help-fns radix-tree cl-print debug backtrace vc-mtn vc-hg vc-bzr vc-src vc-sccs magit-extras face-remap magit-submodule magit-obsolete magit-blame magit-stash magit-reflog magit-bisect magit-push magit-pull magit-fetch magit-clone magit-remote magit-commit magit-sequence magit-notes magit-worktree magit-tag magit-merge magit-branch magit-reset magit-files magit-refs magit-status magit magit-repos magit-apply magit-wip magit-log which-func imenu magit-diff smerge-mode diff git-commit rx log-edit pcvs-util magit-core magit-autorevert autorevert filenotify magit-margin magit-transient magit-process with-editor magit-mode transient magit-git magit-section magit-utils dash dabbrev vc-cvs vc-rcs vc misearch multi-isearch vc-git diff-mode bug-reference mailalias bbdb-message gnus-dup debbugs-gnu add-log debbugs soap-client warnings rng-xsd rng-dt rng-util xsd-regexp vc-dispatcher vc-svn sort gnus-cite mail-extr gnus-async gnus-bcklg gnus-ml gnus-topic cursor-sensor mm-archive url-http url-gw url-auth qp utf-7 imap rfc2104 nnrss mm-url nndoc nndraft nnmh gnutls network-stream nsm nnfolder bbdb-gnus nnml gnus-agent gnus-srvr gnus-score score-mode nnvirtual gnus-msg nntp gnus-cache w3m w3m-hist w3m-fb bookmark-w3m w3m-ems w3m-favicon w3m-image tab-line w3m-proc w3m-util cl-extra help-mode paredit paren icomplete time battery cus-load exwm-randr xcb-randr exwm-config exwm exwm-input xcb-keysyms exwm-manage exwm-floating xcb-cursor xcb-render exwm-layout exwm-workspace exwm-core xcb-ewmh xcb-icccm xcb xcb-xkb xcb-xproto xcb-types xcb-debug server modus-operandi-theme modus-themes pcase google-maps google-maps-static google-maps-geocode google-maps-base osm-mode url-cache gnuplot info-look transmission color calc-bin calc-ext calc calc-loaddefs rect calc-macs w3m-load mu4e mu4e-org mu4e-main mu4e-view mu4e-view-gnus gnus-art mm-uu mml2015 mm-view mml-smime smime dig gnus-sum gnus-group gnus-undo gnus-start gnus-dbus dbus gnus-cloud nnimap nnmail mail-source utf7 netrc nnoo gnus-spec gnus-int gnus-range gnus-win gnus nnheader wid-edit mu4e-view-common mu4e-headers mu4e-compose mu4e-context mu4e-draft mu4e-actions ido rfc2368 smtpmail sendmail mu4e-mark mu4e-proc mu4e-utils doc-view jka-compr image-mode exif mu4e-lists mu4e-message shr kinsoku svg xml dom flow-fill mule-util hl-line mu4e-vars message rmc puny rfc822 mml mml-sec epa derived epg rfc6068 epg-config gnus-util rmail rmail-loaddefs mm-decode mm-bodies mm-encode mail-parse rfc2231 rfc2047 rfc2045 mm-util ietf-drums mail-prsvr mail-utils gmm-utils mailheader mu4e-meta supercite regi bbdb-anniv diary-lib diary-loaddefs bbdb-mua bbdb-com crm mailabbrev bbdb bbdb-site timezone org ob ob-tangle ob-ref ob-lob ob-table ob-exp org-macro org-footnote org-src ob-comint org-pcomplete org-list org-faces org-entities org-version ob-emacs-lisp ob-core ob-eval org-table ol org-keys org-compat org-macs org-loaddefs find-func cal-menu calendar cal-loaddefs visual-basic-mode web-mode disp-table erlang-start smart-tabs-mode skeleton cc-mode cc-fonts cc-guess cc-menus cc-cmds cc-styles cc-align cc-engine cc-vars cc-defs movitz-slime cl slime-asdf grep slime-tramp tramp tramp-loaddefs trampver tramp-integration files-x tramp-compat shell pcomplete parse-time iso8601 time-date ls-lisp format-spec slime-fancy slime-indentation slime-cl-indent cl-indent slime-trace-dialog slime-fontifying-fu slime-package-fu slime-references slime-compiler-notes-tree advice slime-scratch slime-presentations bridge slime-macrostep macrostep slime-mdot-fu slime-enclosing-context slime-fuzzy slime-fancy-trace slime-fancy-inspector slime-c-p-c slime-editing-commands slime-autodoc slime-repl slime-parse slime compile text-property-search etags fileloop generator xref project arc-mode archive-mode noutline outline pp comint ansi-color ring hyperspec thingatpt slime-autoloads dired-aux dired-x dired dired-loaddefs edmacro kmacro windmove easy-mmode tex-site info package browse-url url url-proxy url-privacy url-expand url-methods url-history url-cookie url-domsuf url-util mailcap url-handlers url-parse auth-source cl-seq eieio eieio-core cl-macs eieio-loaddefs password-cache json subr-x map url-vars seq byte-opt gv bytecomp byte-compile cconv cl-loaddefs cl-lib iso-transl tooltip eldoc electric uniquify ediff-hook vc-hooks lisp-float-type mwheel term/x-win x-win term/common-win x-dnd tool-bar dnd fontset image regexp-opt fringe tabulated-list replace newcomment text-mode elisp-mode lisp-mode prog-mode register page tab-bar menu-bar rfn-eshadow isearch easymenu timer select scroll-bar mouse jit-lock font-lock syntax font-core term/tty-colors frame minibuffer cl-generic cham georgian utf-8-lang misc-lang vietnamese tibetan thai tai-viet lao korean japanese eucjp-ms cp51932 hebrew greek romanian slovak czech european ethiopic indian cyrillic chinese composite charscript charprop case-table epa-hook jka-cmpr-hook help simple abbrev obarray cl-preloaded nadvice button loaddefs faces cus-face macroexp files window text-properties overlay sha1 md5 base64 format env code-pages mule custom widget hashtable-print-readable backquote threads dbusbind kqueue lcms2 dynamic-setting system-font-setting font-render-setting cairo x-toolkit x multi-tty make-network-process emacs) Memory information: ((conses 16 1085709 184490) (symbols 48 72774 10) (strings 32 349500 12549) (string-bytes 1 10779365) (vectors 16 128492) (vector-slots 8 2949177 144104) (floats 8 3016 1061) (intervals 56 30248 1956) (buffers 992 85)) -- Manuel Giraud --=-=-=-- ------------=_1631833388-13903-1--