Replace insignificant backquotes
Replace most insignificant occurrences of '`' with a straight quote, sharp quote or nothing. This includes backquotes in 'pcase' patterns. * admin/admin.el: * lisp/apropos.el: * lisp/arc-mode.el: * lisp/auth-source.el: * lisp/avoid.el: * lisp/bindings.el: * lisp/bs.el: * lisp/calculator.el: * lisp/calendar/todo-mode.el: * lisp/cedet/semantic.el: * lisp/cedet/semantic/analyze/debug.el: * lisp/cedet/semantic/bovine.el: * lisp/cedet/semantic/dep.el: * lisp/cedet/semantic/grammar.el: * lisp/cedet/semantic/wisent/comp.el: * lisp/cedet/semantic/wisent/grammar.el: * lisp/cedet/srecode/mode.el: * lisp/cus-edit.el: * lisp/doc-view.el: * lisp/elec-pair.el: * lisp/electric.el: * lisp/emacs-lisp/autoload.el: * lisp/emacs-lisp/benchmark.el: * lisp/emacs-lisp/byte-opt.el: * lisp/emacs-lisp/bytecomp.el: * lisp/emacs-lisp/cconv.el: * lisp/emacs-lisp/cl-extra.el: * lisp/emacs-lisp/cl-generic.el: * lisp/emacs-lisp/cl-macs.el: * lisp/emacs-lisp/copyright.el: * lisp/emacs-lisp/debug.el: * lisp/emacs-lisp/eieio-compat.el: * lisp/emacs-lisp/ert.el: * lisp/emacs-lisp/generator.el: * lisp/emacs-lisp/inline.el: * lisp/emacs-lisp/macroexp.el: * lisp/emacs-lisp/map.el: * lisp/emacs-lisp/package-x.el: * lisp/emacs-lisp/package.el: * lisp/emacs-lisp/radix-tree.el: * lisp/emacs-lisp/smie.el: * lisp/epa.el: * lisp/erc/erc-dcc.el: * lisp/erc/erc-track.el: * lisp/erc/erc.el: * lisp/eshell/em-ls.el: * lisp/eshell/esh-cmd.el: * lisp/files.el: * lisp/filesets.el: * lisp/font-lock.el: * lisp/frameset.el: * lisp/gnus/gnus-agent.el: * lisp/gnus/gnus-art.el: * lisp/gnus/gnus-cite.el: * lisp/gnus/gnus-group.el: * lisp/gnus/gnus-msg.el: * lisp/gnus/gnus-salt.el: * lisp/gnus/gnus-srvr.el: * lisp/gnus/gnus-sum.el: * lisp/gnus/gnus-topic.el: * lisp/gnus/gnus-util.el: * lisp/gnus/gnus.el: * lisp/gnus/message.el: * lisp/gnus/mm-util.el: * lisp/gnus/mml.el: * lisp/gnus/nnheader.el: * lisp/gnus/nnimap.el: * lisp/gnus/nnmairix.el: * lisp/gnus/spam.el: * lisp/hexl.el: * lisp/hi-lock.el: * lisp/ibuf-ext.el: * lisp/ibuffer.el: * lisp/ido.el: * lisp/info.el: * lisp/international/mule-cmds.el: * lisp/international/mule-util.el: * lisp/json.el: * lisp/jsonrpc.el: * lisp/language/cyrillic.el: * lisp/language/european.el: * lisp/language/georgian.el: * lisp/language/tibetan.el: * lisp/language/utf-8-lang.el: * lisp/language/vietnamese.el: * lisp/ldefs-boot.el: * lisp/mail/mail-extr.el: * lisp/man.el: * lisp/menu-bar.el: * lisp/mh-e/mh-acros.el: * lisp/mh-e/mh-folder.el: * lisp/mh-e/mh-mime.el: * lisp/mh-e/mh-show.el: * lisp/mh-e/mh-speed.el: * lisp/minibuffer.el: * lisp/mpc.el: * lisp/net/ange-ftp.el: * lisp/net/hmac-def.el: * lisp/net/newst-backend.el: * lisp/net/quickurl.el: * lisp/net/tramp-archive.el: * lisp/net/tramp-compat.el: * lisp/notifications.el: * lisp/obsolete/pgg-parse.el: * lisp/obsolete/vc-arch.el: * lisp/obsolete/xesam.el: * lisp/org/ob-C.el: * lisp/org/ob-core.el: * lisp/org/ob-exp.el: * lisp/org/ob-groovy.el: * lisp/org/ob-haskell.el: * lisp/org/ob-io.el: * lisp/org/ob-lisp.el: * lisp/org/ob-lob.el: * lisp/org/ob-lua.el: * lisp/org/ob-octave.el: * lisp/org/ob-perl.el: * lisp/org/ob-python.el: * lisp/org/ob-ref.el: * lisp/org/ob-ruby.el: * lisp/org/ob-sql.el: * lisp/org/org-agenda.el: * lisp/org/org-capture.el: * lisp/org/org-clock.el: * lisp/org/org-colview.el: * lisp/org/org-duration.el: * lisp/org/org-element.el: * lisp/org/org-entities.el: * lisp/org/org-gnus.el: * lisp/org/org-indent.el: * lisp/org/org-info.el: * lisp/org/org-inlinetask.el: * lisp/org/org-lint.el: * lisp/org/org-list.el: * lisp/org/org-mouse.el: * lisp/org/org-plot.el: * lisp/org/org-src.el: * lisp/org/org-table.el: * lisp/org/org.el: * lisp/org/ox-ascii.el: * lisp/org/ox-html.el: * lisp/org/ox-latex.el: * lisp/org/ox-man.el: * lisp/org/ox-md.el: * lisp/org/ox-org.el: * lisp/org/ox-publish.el: * lisp/org/ox-texinfo.el: * lisp/org/ox.el: * lisp/play/bubbles.el: * lisp/play/gamegrid.el: * lisp/progmodes/autoconf.el: * lisp/progmodes/cc-defs.el: * lisp/progmodes/cc-engine.el: * lisp/progmodes/cc-fonts.el: * lisp/progmodes/cc-langs.el: * lisp/progmodes/cperl-mode.el: * lisp/progmodes/ebrowse.el: * lisp/progmodes/elisp-mode.el: * lisp/progmodes/flymake-cc.el: * lisp/progmodes/flymake.el: * lisp/progmodes/fortran.el: * lisp/progmodes/grep.el: * lisp/progmodes/gud.el: * lisp/progmodes/idlwave.el: * lisp/progmodes/js.el: * lisp/progmodes/m4-mode.el: * lisp/progmodes/make-mode.el: * lisp/progmodes/mixal-mode.el: * lisp/progmodes/modula2.el: * lisp/progmodes/octave.el: * lisp/progmodes/opascal.el: * lisp/progmodes/prolog.el: * lisp/progmodes/ps-mode.el: * lisp/progmodes/python.el: * lisp/progmodes/ruby-mode.el: * lisp/progmodes/sh-script.el: * lisp/progmodes/sql.el: * lisp/progmodes/verilog-mode.el: * lisp/ps-mule.el: * lisp/rtree.el: * lisp/ruler-mode.el: * lisp/ses.el: * lisp/simple.el: * lisp/startup.el: * lisp/subr.el: * lisp/term/ns-win.el: * lisp/textmodes/bibtex.el: * lisp/textmodes/conf-mode.el: * lisp/textmodes/css-mode.el: * lisp/textmodes/refill.el: * lisp/textmodes/sgml-mode.el: * lisp/textmodes/tex-mode.el: * lisp/tutorial.el: * lisp/url/url-dav.el: * lisp/url/url-gw.el: * lisp/url/url-http.el: * lisp/url/url-methods.el: * lisp/url/url-privacy.el: * lisp/vc/cvs-status.el: * lisp/vc/diff-mode.el: * lisp/vc/ediff-init.el: * lisp/vc/ediff-ptch.el: * lisp/vc/log-edit.el: * lisp/vc/log-view.el: * lisp/vc/pcvs-info.el: * lisp/vc/pcvs.el: * lisp/vc/smerge-mode.el: * lisp/vc/vc-git.el: * lisp/vc/vc-hg.el: * lisp/vc/vc-mtn.el: * lisp/vc/vc-rcs.el: * lisp/whitespace.el: * lisp/window.el: * test/lisp/electric-tests.el: * test/lisp/emacs-lisp/cl-lib-tests.el: * test/lisp/emacs-lisp/ert-tests.el: * test/lisp/epg-tests.el: * test/lisp/jsonrpc-tests.el: * test/src/data-tests.el: * test/src/json-tests.el: Replace most insignificant backquotes.
This commit is contained in:
Michael Heerdegen
parent
3826ecc795
commit
1808d254a5
220 changed files with 1340 additions and 1349 deletions
|
|
@ -182,13 +182,13 @@ expression, in which case we want to handle forms differently."
|
|||
(let* ((macrop (memq car '(defmacro cl-defmacro defmacro*)))
|
||||
(name (nth 1 form))
|
||||
(args (pcase car
|
||||
((or `defun `defmacro
|
||||
`defun* `defmacro* `cl-defun `cl-defmacro
|
||||
`define-overloadable-function)
|
||||
((or 'defun 'defmacro
|
||||
'defun* 'defmacro* 'cl-defun 'cl-defmacro
|
||||
'define-overloadable-function)
|
||||
(nth 2 form))
|
||||
(`define-skeleton '(&optional str arg))
|
||||
((or `define-generic-mode `define-derived-mode
|
||||
`define-compilation-mode)
|
||||
('define-skeleton '(&optional str arg))
|
||||
((or 'define-generic-mode 'define-derived-mode
|
||||
'define-compilation-mode)
|
||||
nil)
|
||||
(_ t)))
|
||||
(body (nthcdr (or (function-get car 'doc-string-elt) 3) form))
|
||||
|
|
|
|||
|
|
@ -81,7 +81,7 @@ result. The overhead of the `lambda's is accounted for."
|
|||
(gcs (make-symbol "gcs"))
|
||||
(gc (make-symbol "gc"))
|
||||
(code (byte-compile `(lambda () ,@forms)))
|
||||
(lambda-code (byte-compile `(lambda ()))))
|
||||
(lambda-code (byte-compile '(lambda ()))))
|
||||
`(let ((,gc gc-elapsed)
|
||||
(,gcs gcs-done))
|
||||
(list ,(if (or (symbolp repetitions) (> repetitions 1))
|
||||
|
|
|
|||
|
|
@ -255,7 +255,7 @@
|
|||
(setq fn (or (symbol-function name)
|
||||
(cdr (assq name byte-compile-function-environment)))))
|
||||
(pcase fn
|
||||
(`nil
|
||||
('nil
|
||||
(byte-compile-warn "attempt to inline `%s' before it was defined"
|
||||
name)
|
||||
form)
|
||||
|
|
@ -635,7 +635,7 @@
|
|||
(setq form (car (last (cdr form)))))
|
||||
(cond ((consp form)
|
||||
(pcase (car form)
|
||||
(`quote (cadr form))
|
||||
('quote (cadr form))
|
||||
;; Can't use recursion in a defsubst.
|
||||
;; (`progn (byte-compile-trueconstp (car (last (cdr form)))))
|
||||
))
|
||||
|
|
@ -649,7 +649,7 @@
|
|||
(setq form (car (last (cdr form)))))
|
||||
(cond ((consp form)
|
||||
(pcase (car form)
|
||||
(`quote (null (cadr form)))
|
||||
('quote (null (cadr form)))
|
||||
;; Can't use recursion in a defsubst.
|
||||
;; (`progn (byte-compile-nilconstp (car (last (cdr form)))))
|
||||
))
|
||||
|
|
|
|||
|
|
@ -1730,8 +1730,8 @@ that already has a `.elc' file."
|
|||
(file-name-nondirectory source))))
|
||||
(progn (cl-incf
|
||||
(pcase (byte-recompile-file source force arg)
|
||||
(`no-byte-compile skip-count)
|
||||
(`t file-count)
|
||||
('no-byte-compile skip-count)
|
||||
('t file-count)
|
||||
(_ fail-count)))
|
||||
(or noninteractive
|
||||
(message "Checking %s..." directory))
|
||||
|
|
@ -3277,8 +3277,8 @@ for symbols generated by the byte compiler itself."
|
|||
(cl-assert (listp fargs))
|
||||
(while fargs
|
||||
(pcase (car fargs)
|
||||
(`&optional (setq fargs (cdr fargs)))
|
||||
(`&rest (setq fmax2 (+ (* 2 (length dynbinds)) 1))
|
||||
('&optional (setq fargs (cdr fargs)))
|
||||
('&rest (setq fmax2 (+ (* 2 (length dynbinds)) 1))
|
||||
(push (cadr fargs) dynbinds)
|
||||
(setq fargs nil))
|
||||
(_ (push (pop fargs) dynbinds))))
|
||||
|
|
@ -3325,8 +3325,8 @@ for symbols generated by the byte compiler itself."
|
|||
(not (memq var byte-compile-not-obsolete-vars))
|
||||
(not (memq var byte-compile-global-not-obsolete-vars))
|
||||
(or (pcase (nth 1 od)
|
||||
(`set (not (eq access-type 'reference)))
|
||||
(`get (eq access-type 'reference))
|
||||
('set (not (eq access-type 'reference)))
|
||||
('get (eq access-type 'reference))
|
||||
(_ t)))))
|
||||
(byte-compile-warn-obsolete var))))
|
||||
|
||||
|
|
@ -4731,7 +4731,7 @@ binding slots have been popped."
|
|||
arg)
|
||||
;; `lam' is the lambda expression in `fun' (or nil if not
|
||||
;; recognized).
|
||||
((or `(,(or `quote `function) ,lam) (let lam nil))
|
||||
((or `(,(or 'quote 'function) ,lam) (let lam nil))
|
||||
fun)
|
||||
;; `arglist' is the list of arguments (or t if not recognized).
|
||||
;; `body' is the body of `lam' (or t if not recognized).
|
||||
|
|
@ -4918,18 +4918,18 @@ invoked interactively."
|
|||
(setq byte-compile-call-tree
|
||||
(sort byte-compile-call-tree
|
||||
(pcase byte-compile-call-tree-sort
|
||||
(`callers
|
||||
('callers
|
||||
(lambda (x y) (< (length (nth 1 x))
|
||||
(length (nth 1 y)))))
|
||||
(`calls
|
||||
(length (nth 1 y)))))
|
||||
('calls
|
||||
(lambda (x y) (< (length (nth 2 x))
|
||||
(length (nth 2 y)))))
|
||||
(`calls+callers
|
||||
(length (nth 2 y)))))
|
||||
('calls+callers
|
||||
(lambda (x y) (< (+ (length (nth 1 x))
|
||||
(length (nth 2 x)))
|
||||
(+ (length (nth 1 y))
|
||||
(length (nth 2 y))))))
|
||||
(`name
|
||||
(length (nth 2 x)))
|
||||
(+ (length (nth 1 y))
|
||||
(length (nth 2 y))))))
|
||||
('name
|
||||
(lambda (x y) (string< (car x) (car y))))
|
||||
(_ (error "`byte-compile-call-tree-sort': `%s' - unknown sort mode"
|
||||
byte-compile-call-tree-sort))))))
|
||||
|
|
|
|||
|
|
@ -322,7 +322,7 @@ places where they originally did not directly appear."
|
|||
;; so we never touch it(unless we enter to the other closure).
|
||||
;;(if (listp form) (print (car form)) form)
|
||||
(pcase form
|
||||
(`(,(and letsym (or `let* `let)) ,binders . ,body)
|
||||
(`(,(and letsym (or 'let* 'let)) ,binders . ,body)
|
||||
|
||||
; let and let* special forms
|
||||
(let ((binders-new '())
|
||||
|
|
@ -454,7 +454,7 @@ places where they originally did not directly appear."
|
|||
(`(function . ,_) form)
|
||||
|
||||
;defconst, defvar
|
||||
(`(,(and sym (or `defconst `defvar)) ,definedsymbol . ,forms)
|
||||
(`(,(and sym (or 'defconst 'defvar)) ,definedsymbol . ,forms)
|
||||
`(,sym ,definedsymbol
|
||||
. ,(when (consp forms)
|
||||
(cons (cconv-convert (car forms) env extend)
|
||||
|
|
@ -496,8 +496,8 @@ places where they originally did not directly appear."
|
|||
`((let ((,var (list ,var))) ,@body))))))
|
||||
handlers))))
|
||||
|
||||
(`(,(and head (or (and `catch (guard byte-compile--use-old-handlers))
|
||||
`unwind-protect))
|
||||
(`(,(and head (or (and 'catch (guard byte-compile--use-old-handlers))
|
||||
'unwind-protect))
|
||||
,form . ,body)
|
||||
`(,head ,(cconv-convert form env extend)
|
||||
:fun-body ,(cconv--convert-function () body env form)))
|
||||
|
|
@ -526,7 +526,7 @@ places where they originally did not directly appear."
|
|||
`(progn . ,(nreverse prognlist))
|
||||
(car prognlist)))))
|
||||
|
||||
(`(,(and (or `funcall `apply) callsym) ,fun . ,args)
|
||||
(`(,(and (or 'funcall 'apply) callsym) ,fun . ,args)
|
||||
;; These are not special forms but we treat them separately for the needs
|
||||
;; of lambda lifting.
|
||||
(let ((mapping (cdr (assq fun env))))
|
||||
|
|
@ -655,7 +655,7 @@ This function does not return anything but instead fills the
|
|||
and updates the data stored in ENV."
|
||||
(pcase form
|
||||
; let special form
|
||||
(`(,(and (or `let* `let) letsym) ,binders . ,body-forms)
|
||||
(`(,(and (or 'let* 'let) letsym) ,binders . ,body-forms)
|
||||
|
||||
(let ((orig-env env)
|
||||
(newvars nil)
|
||||
|
|
@ -739,18 +739,18 @@ and updates the data stored in ENV."
|
|||
form "variable"))))
|
||||
|
||||
;; FIXME: The bytecode for unwind-protect forces us to wrap the unwind.
|
||||
(`(,(or (and `catch (guard byte-compile--use-old-handlers))
|
||||
`unwind-protect)
|
||||
(`(,(or (and 'catch (guard byte-compile--use-old-handlers))
|
||||
'unwind-protect)
|
||||
,form . ,body)
|
||||
(cconv-analyze-form form env)
|
||||
(cconv--analyze-function () body env form))
|
||||
|
||||
(`(defvar ,var) (push var byte-compile-bound-variables))
|
||||
(`(,(or `defconst `defvar) ,var ,value . ,_)
|
||||
(`(,(or 'defconst 'defvar) ,var ,value . ,_)
|
||||
(push var byte-compile-bound-variables)
|
||||
(cconv-analyze-form value env))
|
||||
|
||||
(`(,(or `funcall `apply) ,fun . ,args)
|
||||
(`(,(or 'funcall 'apply) ,fun . ,args)
|
||||
;; Here we ignore fun because funcall and apply are the only two
|
||||
;; functions where we can pass a candidate for lambda lifting as
|
||||
;; argument. So, if we see fun elsewhere, we'll delete it from
|
||||
|
|
|
|||
|
|
@ -576,9 +576,9 @@ too large if positive or too small if negative)."
|
|||
"Concatenate, into a sequence of type TYPE, the argument SEQUENCEs.
|
||||
\n(fn TYPE SEQUENCE...)"
|
||||
(pcase type
|
||||
(`vector (apply #'vconcat sequences))
|
||||
(`string (apply #'concat sequences))
|
||||
(`list (apply #'append (append sequences '(nil))))
|
||||
('vector (apply #'vconcat sequences))
|
||||
('string (apply #'concat sequences))
|
||||
('list (apply #'append (append sequences '(nil))))
|
||||
(_ (error "Not a sequence type name: %S" type))))
|
||||
|
||||
;;; List functions.
|
||||
|
|
@ -742,7 +742,7 @@ including `cl-block' and `cl-eval-when'."
|
|||
(with-eval-after-load 'find-func
|
||||
(defvar find-function-regexp-alist)
|
||||
(add-to-list 'find-function-regexp-alist
|
||||
`(define-type . cl--typedef-regexp)))
|
||||
'(define-type . cl--typedef-regexp)))
|
||||
|
||||
(define-button-type 'cl-help-type
|
||||
:supertype 'help-function-def
|
||||
|
|
|
|||
|
|
@ -938,7 +938,7 @@ MET-NAME is as returned by `cl--generic-load-hist-format'."
|
|||
(add-to-list 'find-function-regexp-alist
|
||||
`(cl-defmethod . ,#'cl--generic-search-method))
|
||||
(add-to-list 'find-function-regexp-alist
|
||||
`(cl-defgeneric . cl--generic-find-defgeneric-regexp)))
|
||||
'(cl-defgeneric . cl--generic-find-defgeneric-regexp)))
|
||||
|
||||
(defun cl--generic-method-info (method)
|
||||
(let* ((specializers (cl--generic-method-specializers method))
|
||||
|
|
|
|||
|
|
@ -1902,7 +1902,7 @@ Labels have lexical scope and dynamic extent."
|
|||
(push (nreverse block) blocks)
|
||||
(setq block (list label-or-stmt))))
|
||||
(unless (eq 'go (car-safe (car-safe block)))
|
||||
(push `(go cl--exit) block))
|
||||
(push '(go cl--exit) block))
|
||||
(push (nreverse block) blocks))
|
||||
(let ((catch-tag (make-symbol "cl--tagbody-tag"))
|
||||
(cl--tagbody-alist cl--tagbody-alist))
|
||||
|
|
@ -2185,7 +2185,7 @@ of `cl-symbol-macrolet' to additionally expand symbol macros."
|
|||
;; The behavior of CL made sense in a dynamically scoped
|
||||
;; language, but nowadays, lexical scoping semantics is more often
|
||||
;; expected.
|
||||
(`(,(or `let `let*) . ,(or `(,bindings . ,body) dontcare))
|
||||
(`(,(or 'let 'let*) . ,(or `(,bindings . ,body) dontcare))
|
||||
(let ((nbs ()) (found nil))
|
||||
(dolist (binding bindings)
|
||||
(let* ((var (if (symbolp binding) binding (car binding)))
|
||||
|
|
@ -3021,7 +3021,7 @@ the form NAME which is a shorthand for (NAME NAME)."
|
|||
|
||||
(defun cl--defstruct-predicate (type)
|
||||
(let ((cons (assq (cl-struct-sequence-type type)
|
||||
`((list . consp)
|
||||
'((list . consp)
|
||||
(vector . vectorp)
|
||||
(nil . recordp)))))
|
||||
(if cons
|
||||
|
|
@ -3355,7 +3355,7 @@ The type name can then be used in `cl-typecase', `cl-check-type', etc."
|
|||
(put ',name 'cl-deftype-handler
|
||||
(cl-function (lambda (&cl-defs ('*) ,@arglist) ,@body)))))
|
||||
|
||||
(cl-deftype extended-char () `(and character (not base-char)))
|
||||
(cl-deftype extended-char () '(and character (not base-char)))
|
||||
|
||||
;;; Additional functions that we can now define because we've defined
|
||||
;;; `cl-defsubst' and `cl-typep'.
|
||||
|
|
|
|||
|
|
@ -347,7 +347,7 @@ independently replaces consecutive years with a range."
|
|||
"Insert a copyright by $ORGANIZATION notice at cursor."
|
||||
"Company: "
|
||||
comment-start
|
||||
"Copyright (C) " `(format-time-string "%Y") " by "
|
||||
"Copyright (C) " '(format-time-string "%Y") " by "
|
||||
(or (getenv "ORGANIZATION")
|
||||
str)
|
||||
'(if (copyright-offset-too-large-p)
|
||||
|
|
|
|||
|
|
@ -354,26 +354,26 @@ Include the reason for debugger entry from ARGS."
|
|||
(pcase (car args)
|
||||
;; lambda is for debug-on-call when a function call is next.
|
||||
;; debug is for debug-on-entry function called.
|
||||
((or `lambda `debug)
|
||||
((or 'lambda 'debug)
|
||||
(insert "--entering a function:\n"))
|
||||
;; Exiting a function.
|
||||
(`exit
|
||||
('exit
|
||||
(insert "--returning value: ")
|
||||
(insert (backtrace-print-to-string debugger-value))
|
||||
(insert ?\n))
|
||||
;; Watchpoint triggered.
|
||||
((and `watchpoint (let `(,symbol ,newval . ,details) (cdr args)))
|
||||
((and 'watchpoint (let `(,symbol ,newval . ,details) (cdr args)))
|
||||
(insert
|
||||
"--"
|
||||
(pcase details
|
||||
(`(makunbound nil) (format "making %s void" symbol))
|
||||
('(makunbound nil) (format "making %s void" symbol))
|
||||
(`(makunbound ,buffer) (format "killing local value of %s in buffer %s"
|
||||
symbol buffer))
|
||||
(`(defvaralias ,_) (format "aliasing %s to %s" symbol newval))
|
||||
(`(let ,_) (format "let-binding %s to %s" symbol
|
||||
(backtrace-print-to-string newval)))
|
||||
(`(unlet ,_) (format "ending let-binding of %s" symbol))
|
||||
(`(set nil) (format "setting %s to %s" symbol
|
||||
('(set nil) (format "setting %s to %s" symbol
|
||||
(backtrace-print-to-string newval)))
|
||||
(`(set ,buffer) (format "setting %s in buffer %s to %s"
|
||||
symbol buffer
|
||||
|
|
@ -382,12 +382,12 @@ Include the reason for debugger entry from ARGS."
|
|||
": ")
|
||||
(insert ?\n))
|
||||
;; Debugger entered for an error.
|
||||
(`error
|
||||
('error
|
||||
(insert "--Lisp error: ")
|
||||
(insert (backtrace-print-to-string (nth 1 args)))
|
||||
(insert ?\n))
|
||||
;; debug-on-call, when the next thing is an eval.
|
||||
(`t
|
||||
('t
|
||||
(insert "--beginning evaluation of function call form:\n"))
|
||||
;; User calls debug directly.
|
||||
(_
|
||||
|
|
|
|||
|
|
@ -182,11 +182,11 @@ Summary:
|
|||
;; `no-applicable-method', which have slightly different calling
|
||||
;; convention than their cl-generic counterpart.
|
||||
(pcase method
|
||||
(`no-next-method
|
||||
('no-next-method
|
||||
(setq method 'cl-no-next-method)
|
||||
(setq specializers `(generic method ,@specializers))
|
||||
(lambda (_generic _method &rest args) (apply code args)))
|
||||
(`no-applicable-method
|
||||
('no-applicable-method
|
||||
(setq method 'cl-no-applicable-method)
|
||||
(setq specializers `(generic ,@specializers))
|
||||
(lambda (generic arg &rest args)
|
||||
|
|
|
|||
|
|
@ -971,7 +971,7 @@ contained in UNIVERSE."
|
|||
test
|
||||
(ert-test-most-recent-result test))))
|
||||
universe))
|
||||
(:unexpected (ert-select-tests `(not :expected) universe))
|
||||
(:unexpected (ert-select-tests '(not :expected) universe))
|
||||
((pred stringp)
|
||||
(pcase-exhaustive universe
|
||||
(`t (mapcar #'ert-get-test
|
||||
|
|
|
|||
|
|
@ -213,8 +213,8 @@ don't yield.")
|
|||
|
||||
;; Process `and'.
|
||||
|
||||
(`(and) ; (and) -> t
|
||||
(cps--transform-1 t next-state))
|
||||
('(and) ; (and) -> t
|
||||
(cps--transform-1 t next-state))
|
||||
(`(and ,condition) ; (and CONDITION) -> CONDITION
|
||||
(cps--transform-1 condition next-state))
|
||||
(`(and ,condition . ,rest)
|
||||
|
|
@ -246,8 +246,8 @@ don't yield.")
|
|||
;; Process `cond': transform into `if' or `or' depending on the
|
||||
;; precise kind of the condition we're looking at.
|
||||
|
||||
(`(cond) ; (cond) -> nil
|
||||
(cps--transform-1 nil next-state))
|
||||
('(cond) ; (cond) -> nil
|
||||
(cps--transform-1 nil next-state))
|
||||
(`(cond (,condition) . ,rest)
|
||||
(cps--transform-1 `(or ,condition (cond ,@rest))
|
||||
next-state))
|
||||
|
|
@ -281,14 +281,14 @@ don't yield.")
|
|||
;; Process `progn' and `inline': they are identical except for the
|
||||
;; name, which has some significance to the byte compiler.
|
||||
|
||||
(`(inline) (cps--transform-1 nil next-state))
|
||||
('(inline) (cps--transform-1 nil next-state))
|
||||
(`(inline ,form) (cps--transform-1 form next-state))
|
||||
(`(inline ,form . ,rest)
|
||||
(cps--transform-1 form
|
||||
(cps--transform-1 `(inline ,@rest)
|
||||
next-state)))
|
||||
|
||||
(`(progn) (cps--transform-1 nil next-state))
|
||||
('(progn) (cps--transform-1 nil next-state))
|
||||
(`(progn ,form) (cps--transform-1 form next-state))
|
||||
(`(progn ,form . ,rest)
|
||||
(cps--transform-1 form
|
||||
|
|
@ -345,7 +345,7 @@ don't yield.")
|
|||
|
||||
;; Process `or'.
|
||||
|
||||
(`(or) (cps--transform-1 nil next-state))
|
||||
('(or) (cps--transform-1 nil next-state))
|
||||
(`(or ,condition) (cps--transform-1 condition next-state))
|
||||
(`(or ,condition . ,rest)
|
||||
(cps--transform-1
|
||||
|
|
@ -646,11 +646,11 @@ modified copy."
|
|||
,(cps--make-close-iterator-form terminal-state)))))
|
||||
(t (error "unknown iterator operation %S" op))))))
|
||||
,(when finalizer-symbol
|
||||
`(funcall iterator
|
||||
:stash-finalizer
|
||||
(make-finalizer
|
||||
(lambda ()
|
||||
(iter-close iterator)))))
|
||||
'(funcall iterator
|
||||
:stash-finalizer
|
||||
(make-finalizer
|
||||
(lambda ()
|
||||
(iter-close iterator)))))
|
||||
iterator))))
|
||||
|
||||
(defun iter-yield (value)
|
||||
|
|
|
|||
|
|
@ -259,7 +259,7 @@ See Info node `(elisp)Defining Functions' for more details."
|
|||
`(error ,@args))
|
||||
|
||||
(defun inline--warning (&rest _args)
|
||||
`(throw 'inline--just-use
|
||||
'(throw 'inline--just-use
|
||||
;; FIXME: This would inf-loop by calling us right back when
|
||||
;; macroexpand-all recurses to expand inline--form.
|
||||
;; (macroexp--warn-and-return (format ,@args)
|
||||
|
|
|
|||
|
|
@ -222,15 +222,15 @@ Assumes the caller has bound `macroexpand-all-environment'."
|
|||
(cddr form))
|
||||
(cdr form))
|
||||
form))
|
||||
(`(,(or `defvar `defconst) . ,_) (macroexp--all-forms form 2))
|
||||
(`(,(or 'defvar 'defconst) . ,_) (macroexp--all-forms form 2))
|
||||
(`(function ,(and f `(lambda . ,_)))
|
||||
(macroexp--cons 'function
|
||||
(macroexp--cons (macroexp--all-forms f 2)
|
||||
nil
|
||||
(cdr form))
|
||||
form))
|
||||
(`(,(or `function `quote) . ,_) form)
|
||||
(`(,(and fun (or `let `let*)) . ,(or `(,bindings . ,body) dontcare))
|
||||
(`(,(or 'function 'quote) . ,_) form)
|
||||
(`(,(and fun (or 'let 'let*)) . ,(or `(,bindings . ,body) dontcare))
|
||||
(macroexp--cons fun
|
||||
(macroexp--cons (macroexp--all-clauses bindings 1)
|
||||
(macroexp--all-forms body)
|
||||
|
|
@ -249,14 +249,14 @@ Assumes the caller has bound `macroexpand-all-environment'."
|
|||
;; here, so that any code that cares about the difference will
|
||||
;; see the same transformation.
|
||||
;; First arg is a function:
|
||||
(`(,(and fun (or `funcall `apply `mapcar `mapatoms `mapconcat `mapc))
|
||||
(`(,(and fun (or 'funcall 'apply 'mapcar 'mapatoms 'mapconcat 'mapc))
|
||||
',(and f `(lambda . ,_)) . ,args)
|
||||
(macroexp--warn-and-return
|
||||
(format "%s quoted with ' rather than with #'"
|
||||
(list 'lambda (nth 1 f) '...))
|
||||
(macroexp--expand-all `(,fun ,f . ,args))))
|
||||
;; Second arg is a function:
|
||||
(`(,(and fun (or `sort)) ,arg1 ',(and f `(lambda . ,_)) . ,args)
|
||||
(`(,(and fun (or 'sort)) ,arg1 ',(and f `(lambda . ,_)) . ,args)
|
||||
(macroexp--warn-and-return
|
||||
(format "%s quoted with ' rather than with #'"
|
||||
(list 'lambda (nth 1 f) '...))
|
||||
|
|
@ -406,7 +406,7 @@ cases where EXP is a constant."
|
|||
"Bind each binding in BINDINGS as `macroexp-let2' does."
|
||||
(declare (indent 2) (debug (sexp (&rest (sexp form)) body)))
|
||||
(pcase-exhaustive bindings
|
||||
(`nil (macroexp-progn body))
|
||||
('nil (macroexp-progn body))
|
||||
(`((,var ,exp) . ,tl)
|
||||
`(macroexp-let2 ,test ,var ,exp
|
||||
(macroexp-let2* ,test ,tl ,@body)))))
|
||||
|
|
|
|||
|
|
@ -331,8 +331,8 @@ MAP can be a list, hash-table or array."
|
|||
TYPE can be one of the following symbols: list or hash-table.
|
||||
MAP can be a list, hash-table or array."
|
||||
(pcase type
|
||||
(`list (map-pairs map))
|
||||
(`hash-table (map--into-hash-table map))
|
||||
('list (map-pairs map))
|
||||
('hash-table (map--into-hash-table map))
|
||||
(_ (error "Not a map type name: %S" type))))
|
||||
|
||||
(defun map--put (map key v)
|
||||
|
|
|
|||
|
|
@ -202,8 +202,8 @@ if it exists."
|
|||
(split-version (package-desc-version pkg-desc))
|
||||
(commentary
|
||||
(pcase file-type
|
||||
(`single (lm-commentary))
|
||||
(`tar nil))) ;; FIXME: Get it from the README file.
|
||||
('single (lm-commentary))
|
||||
('tar nil))) ;; FIXME: Get it from the README file.
|
||||
(extras (package-desc-extras pkg-desc))
|
||||
(pkg-version (package-version-join split-version))
|
||||
(pkg-buffer (current-buffer)))
|
||||
|
|
|
|||
|
|
@ -496,9 +496,9 @@ This is, approximately, the inverse of `version-to-list'.
|
|||
|
||||
(defun package-desc-suffix (pkg-desc)
|
||||
(pcase (package-desc-kind pkg-desc)
|
||||
(`single ".el")
|
||||
(`tar ".tar")
|
||||
(`dir "")
|
||||
('single ".el")
|
||||
('tar ".tar")
|
||||
('dir "")
|
||||
(kind (error "Unknown package kind: %s" kind))))
|
||||
|
||||
(defun package-desc--keywords (pkg-desc)
|
||||
|
|
@ -846,7 +846,7 @@ untar into a directory named DIR; otherwise, signal an error."
|
|||
(dirname (package-desc-full-name pkg-desc))
|
||||
(pkg-dir (expand-file-name dirname package-user-dir)))
|
||||
(pcase (package-desc-kind pkg-desc)
|
||||
(`dir
|
||||
('dir
|
||||
(make-directory pkg-dir t)
|
||||
(let ((file-list
|
||||
(directory-files
|
||||
|
|
@ -860,12 +860,12 @@ untar into a directory named DIR; otherwise, signal an error."
|
|||
;; things simple by ensuring we're one of them.
|
||||
(setf (package-desc-kind pkg-desc)
|
||||
(if (> (length file-list) 1) 'tar 'single))))
|
||||
(`tar
|
||||
('tar
|
||||
(make-directory package-user-dir t)
|
||||
;; FIXME: should we delete PKG-DIR if it exists?
|
||||
(let* ((default-directory (file-name-as-directory package-user-dir)))
|
||||
(package-untar-buffer dirname)))
|
||||
(`single
|
||||
('single
|
||||
(let ((el-file (expand-file-name (format "%s.el" name) pkg-dir)))
|
||||
(make-directory pkg-dir t)
|
||||
(package--write-file-no-coding el-file)))
|
||||
|
|
@ -2494,7 +2494,7 @@ Otherwise no newline is inserted."
|
|||
|
||||
(easy-menu-define package-menu-mode-menu package-menu-mode-map
|
||||
"Menu for `package-menu-mode'."
|
||||
`("Package"
|
||||
'("Package"
|
||||
["Describe Package" package-menu-describe-package :help "Display information about this package"]
|
||||
["Help" package-menu-quick-help :help "Show short key binding help for package-menu-mode"]
|
||||
"--"
|
||||
|
|
|
|||
|
|
@ -74,7 +74,7 @@
|
|||
(cmp (compare-strings prefix nil nil key i ni)))
|
||||
(if (eq t cmp)
|
||||
(pcase (radix-tree--remove ptree key ni)
|
||||
(`nil rtree)
|
||||
('nil rtree)
|
||||
(`((,pprefix . ,pptree))
|
||||
`((,(concat prefix pprefix) . ,pptree) . ,rtree))
|
||||
(nptree `((,prefix . ,nptree) . ,rtree)))
|
||||
|
|
|
|||
|
|
@ -533,9 +533,9 @@ PREC2 is a table as returned by `smie-precs->prec2' or
|
|||
(setq y (cons nil (cons nil nil)))
|
||||
(push (cons (cdr k) y) table))
|
||||
(pcase v
|
||||
(`= (push (cons x y) eqs))
|
||||
(`< (push (cons x y) csts))
|
||||
(`> (push (cons y x) csts))
|
||||
('= (push (cons x y) eqs))
|
||||
('< (push (cons x y) csts))
|
||||
('> (push (cons y x) csts))
|
||||
(_ (error "SMIE error: prec2 has %S↦%S which ∉ {<,+,>}"
|
||||
k v))))))
|
||||
prec2)
|
||||
|
|
@ -612,8 +612,8 @@ PREC2 is a table as returned by `smie-precs->prec2' or
|
|||
(dolist (x (gethash :smie-open/close-alist prec2))
|
||||
(let* ((token (car x))
|
||||
(cons (pcase (cdr x)
|
||||
(`closer (cddr (assoc token table)))
|
||||
(`opener (cdr (assoc token table))))))
|
||||
('closer (cddr (assoc token table)))
|
||||
('opener (cdr (assoc token table))))))
|
||||
;; `cons' can be nil for openers/closers which only contain
|
||||
;; "atomic" elements.
|
||||
(when cons
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue