(defconst semantic-grammar-wy--keyword-table
(semantic-lex-make-keyword-table
'(("%default-prec" . DEFAULT-PREC)
- ("%no-default-prec" . NO-DEFAULT-PREC)
- ("%keyword" . KEYWORD)
- ("%languagemode" . LANGUAGEMODE)
- ("%left" . LEFT)
- ("%nonassoc" . NONASSOC)
- ("%package" . PACKAGE)
- ("%expectedconflicts" . EXPECTEDCONFLICTS)
- ("%provide" . PROVIDE)
- ("%prec" . PREC)
- ("%put" . PUT)
- ("%quotemode" . QUOTEMODE)
- ("%right" . RIGHT)
- ("%scopestart" . SCOPESTART)
- ("%start" . START)
- ("%token" . TOKEN)
- ("%type" . TYPE)
- ("%use-macros" . USE-MACROS))
+ ("%no-default-prec" . NO-DEFAULT-PREC) ("%keyword" . KEYWORD)
+ ("%languagemode" . LANGUAGEMODE) ("%left" . LEFT)
+ ("%nonassoc" . NONASSOC) ("%package" . PACKAGE)
+ ("%expectedconflicts" . EXPECTEDCONFLICTS) ("%provide" . PROVIDE)
+ ("%prec" . PREC) ("%put" . PUT) ("%quotemode" . QUOTEMODE)
+ ("%right" . RIGHT) ("%scopestart" . SCOPESTART) ("%start" . START)
+ ("%token" . TOKEN) ("%type" . TYPE) ("%use-macros" . USE-MACROS))
'nil)
"Table of language keywords.")
(defconst semantic-grammar-wy--token-table
(semantic-lex-make-type-table
- '(("punctuation"
- (GT . ">")
- (LT . "<")
- (OR . "|")
- (SEMI . ";")
+ '(("punctuation" (GT . ">") (LT . "<") (OR . "|") (SEMI . ";")
(COLON . ":"))
- ("close-paren"
- (RBRACE . "}")
- (RPAREN . ")"))
- ("open-paren"
- (LBRACE . "{")
- (LPAREN . "("))
- ("block"
- (BRACE_BLOCK . "(LBRACE RBRACE)")
+ ("close-paren" (RBRACE . "}") (RPAREN . ")"))
+ ("open-paren" (LBRACE . "{") (LPAREN . "("))
+ ("block" (BRACE_BLOCK . "(LBRACE RBRACE)")
(PAREN_BLOCK . "(LPAREN RPAREN)"))
- ("code"
- (EPILOGUE . "%%...EOF")
- (PROLOGUE . "%{...%}"))
- ("sexp"
- (SEXP))
- ("qlist"
- (PREFIXED_LIST))
- ("char"
- (CHARACTER))
- ("symbol"
- (PERCENT_PERCENT . "\\`%%\\'")
- (SYMBOL))
- ("string"
- (STRING)))
- '(("punctuation" :declared t)
- ("block" :declared t)
- ("sexp" matchdatatype sexp)
- ("sexp" syntax "\\=")
- ("sexp" :declared t)
- ("qlist" matchdatatype sexp)
- ("qlist" syntax "\\s'\\s-*(")
- ("qlist" :declared t)
- ("char" syntax semantic-grammar-lex-c-char-re)
- ("char" :declared t)
- ("symbol" syntax ":?\\(\\sw\\|\\s_\\)+")
- ("symbol" :declared t)
- ("string" :declared t)
- ("keyword" :declared t)))
+ ("code" (EPILOGUE . "%%...EOF") (PROLOGUE . "%{...%}"))
+ ("sexp" (SEXP)) ("qlist" (PREFIXED_LIST)) ("char" (CHARACTER))
+ ("symbol" (PERCENT_PERCENT . "\\`%%\\'") (SYMBOL))
+ ("string" (STRING)))
+ '(("punctuation" :declared t) ("block" :declared t)
+ ("sexp" matchdatatype sexp) ("sexp" syntax "\\=")
+ ("sexp" :declared t) ("qlist" matchdatatype sexp)
+ ("qlist" syntax "\\s'\\s-*(") ("qlist" :declared t)
+ ("char" syntax semantic-grammar-lex-c-char-re) ("char" :declared t)
+ ("symbol" syntax ":?\\(\\sw\\|\\s_\\)+") ("symbol" :declared t)
+ ("string" :declared t) ("keyword" :declared t)))
"Table of lexical tokens.")
(defconst semantic-grammar-wy--parse-table
(wisent-compiled-grammar
- ((DEFAULT-PREC NO-DEFAULT-PREC KEYWORD LANGUAGEMODE LEFT NONASSOC PACKAGE EXPECTEDCONFLICTS PROVIDE PREC PUT QUOTEMODE RIGHT SCOPESTART START TOKEN TYPE USE-MACROS STRING SYMBOL PERCENT_PERCENT CHARACTER PREFIXED_LIST SEXP PROLOGUE EPILOGUE PAREN_BLOCK BRACE_BLOCK LPAREN RPAREN LBRACE RBRACE COLON SEMI OR LT GT)
+ ((DEFAULT-PREC NO-DEFAULT-PREC KEYWORD LANGUAGEMODE LEFT NONASSOC
+ PACKAGE EXPECTEDCONFLICTS PROVIDE PREC PUT QUOTEMODE
+ RIGHT SCOPESTART START TOKEN TYPE USE-MACROS STRING
+ SYMBOL PERCENT_PERCENT CHARACTER PREFIXED_LIST SEXP
+ PROLOGUE EPILOGUE PAREN_BLOCK BRACE_BLOCK LPAREN
+ RPAREN LBRACE RBRACE COLON SEMI OR LT GT)
nil
- (grammar
- ((prologue))
- ((epilogue))
- ((declaration))
- ((nonterminal))
- ((PERCENT_PERCENT)))
+ (grammar ((prologue)) ((epilogue)) ((declaration)) ((nonterminal))
+ ((PERCENT_PERCENT)))
(prologue
- ((PROLOGUE)
- (wisent-raw-tag
- (semantic-tag-new-code "prologue" nil))))
+ ((PROLOGUE) (wisent-raw-tag (semantic-tag-new-code "prologue" nil))))
(epilogue
- ((EPILOGUE)
- (wisent-raw-tag
- (semantic-tag-new-code "epilogue" nil))))
- (declaration
- ((decl)
- (eval $1 t)))
- (decl
- ((default_prec_decl))
- ((no_default_prec_decl))
- ((languagemode_decl))
- ((package_decl))
- ((expectedconflicts_decl))
- ((provide_decl))
- ((precedence_decl))
- ((put_decl))
- ((quotemode_decl))
- ((scopestart_decl))
- ((start_decl))
- ((keyword_decl))
- ((token_decl))
- ((type_decl))
- ((use_macros_decl)))
+ ((EPILOGUE) (wisent-raw-tag (semantic-tag-new-code "epilogue" nil))))
+ (declaration ((decl) (eval $1 t)))
+ (decl ((default_prec_decl)) ((no_default_prec_decl))
+ ((languagemode_decl)) ((package_decl))
+ ((expectedconflicts_decl)) ((provide_decl))
+ ((precedence_decl)) ((put_decl)) ((quotemode_decl))
+ ((scopestart_decl)) ((start_decl)) ((keyword_decl))
+ ((token_decl)) ((type_decl)) ((use_macros_decl)))
(default_prec_decl
((DEFAULT-PREC)
`(wisent-raw-tag
- (semantic-tag "default-prec" 'assoc :value
- '("t")))))
+ (semantic-tag "default-prec" 'assoc :value '("t")))))
(no_default_prec_decl
((NO-DEFAULT-PREC)
`(wisent-raw-tag
- (semantic-tag "default-prec" 'assoc :value
- '("nil")))))
+ (semantic-tag "default-prec" 'assoc :value '("nil")))))
(languagemode_decl
((LANGUAGEMODE symbols)
`(wisent-raw-tag
- (semantic-tag ',(car $2)
- 'languagemode :rest ',(cdr $2)))))
+ (semantic-tag ',(car $2) 'languagemode :rest ',(cdr $2)))))
(package_decl
((PACKAGE SYMBOL)
- `(wisent-raw-tag
- (semantic-tag-new-package ',$2 nil))))
+ `(wisent-raw-tag (semantic-tag-new-package ',$2 nil))))
(expectedconflicts_decl
((EXPECTEDCONFLICTS symbols)
`(wisent-raw-tag
- (semantic-tag ',(car $2)
- 'expectedconflicts :rest ',(cdr $2)))))
+ (semantic-tag ',(car $2) 'expectedconflicts :rest ',(cdr $2)))))
(provide_decl
- ((PROVIDE SYMBOL)
- `(wisent-raw-tag
- (semantic-tag ',$2 'provide))))
+ ((PROVIDE SYMBOL) `(wisent-raw-tag (semantic-tag ',$2 'provide))))
(precedence_decl
((associativity token_type_opt items)
- `(wisent-raw-tag
- (semantic-tag ',$1 'assoc :type ',$2 :value ',$3))))
- (associativity
- ((LEFT)
- (progn "left"))
- ((RIGHT)
- (progn "right"))
- ((NONASSOC)
- (progn "nonassoc")))
+ `(wisent-raw-tag (semantic-tag ',$1 'assoc :type ',$2 :value ',$3))))
+ (associativity ((LEFT) (progn "left")) ((RIGHT) (progn "right"))
+ ((NONASSOC) (progn "nonassoc")))
(put_decl
((PUT put_name put_value)
- `(wisent-raw-tag
- (semantic-tag ',$2 'put :value ',(list $3))))
+ `(wisent-raw-tag (semantic-tag ',$2 'put :value ',(list $3))))
((PUT put_name put_value_list)
- `(wisent-raw-tag
- (semantic-tag ',$2 'put :value ',$3)))
+ `(wisent-raw-tag (semantic-tag ',$2 'put :value ',$3)))
((PUT put_name_list put_value)
`(wisent-raw-tag
- (semantic-tag ',(car $2)
- 'put :rest ',(cdr $2)
- :value ',(list $3))))
+ (semantic-tag ',(car $2) 'put :rest ',(cdr $2) :value
+ ',(list $3))))
((PUT put_name_list put_value_list)
`(wisent-raw-tag
- (semantic-tag ',(car $2)
- 'put :rest ',(cdr $2)
- :value ',$3))))
+ (semantic-tag ',(car $2) 'put :rest ',(cdr $2) :value ',$3))))
(put_name_list
((BRACE_BLOCK)
(mapcar #'semantic-tag-name
- (semantic-parse-region
- (car $region1)
- (cdr $region1)
- 'put_names 1))))
- (put_names
- ((LBRACE)
- nil)
- ((RBRACE)
- nil)
- ((put_name)
- (wisent-raw-tag
- (semantic-tag $1 'put-name))))
- (put_name
- ((SYMBOL))
- ((token_type)))
+ (semantic-parse-region (car $region1) (cdr $region1)
+ 'put_names 1))))
+ (put_names ((LBRACE) nil) ((RBRACE) nil)
+ ((put_name) (wisent-raw-tag (semantic-tag $1 'put-name))))
+ (put_name ((SYMBOL)) ((token_type)))
(put_value_list
((BRACE_BLOCK)
(mapcar #'semantic-tag-code-detail
- (semantic-parse-region
- (car $region1)
- (cdr $region1)
- 'put_values 1))))
- (put_values
- ((LBRACE)
- nil)
- ((RBRACE)
- nil)
- ((put_value)
- (wisent-raw-tag
- (semantic-tag-new-code "put-value" $1))))
- (put_value
- ((SYMBOL any_value)
- (cons $1 $2)))
+ (semantic-parse-region (car $region1) (cdr $region1)
+ 'put_values 1))))
+ (put_values ((LBRACE) nil) ((RBRACE) nil)
+ ((put_value)
+ (wisent-raw-tag (semantic-tag-new-code "put-value" $1))))
+ (put_value ((SYMBOL any_value) (cons $1 $2)))
(scopestart_decl
((SCOPESTART SYMBOL)
- `(wisent-raw-tag
- (semantic-tag ',$2 'scopestart))))
+ `(wisent-raw-tag (semantic-tag ',$2 'scopestart))))
(quotemode_decl
((QUOTEMODE SYMBOL)
- `(wisent-raw-tag
- (semantic-tag ',$2 'quotemode))))
+ `(wisent-raw-tag (semantic-tag ',$2 'quotemode))))
(start_decl
((START symbols)
- `(wisent-raw-tag
- (semantic-tag ',(car $2)
- 'start :rest ',(cdr $2)))))
+ `(wisent-raw-tag (semantic-tag ',(car $2) 'start :rest ',(cdr $2)))))
(keyword_decl
((KEYWORD SYMBOL string_value)
- `(wisent-raw-tag
- (semantic-tag ',$2 'keyword :value ',$3))))
+ `(wisent-raw-tag (semantic-tag ',$2 'keyword :value ',$3))))
(token_decl
((TOKEN token_type_opt SYMBOL string_value)
`(wisent-raw-tag
- (semantic-tag ',$3 ',(if $2 'token 'keyword)
- :type ',$2 :value ',$4)))
+ (semantic-tag ',$3 ',(if $2 'token 'keyword) :type ',$2 :value
+ ',$4)))
((TOKEN token_type_opt symbols)
`(wisent-raw-tag
- (semantic-tag ',(car $3)
- 'token :type ',$2 :rest ',(cdr $3)))))
- (token_type_opt
- (nil)
- ((token_type)))
- (token_type
- ((LT SYMBOL GT)
- (progn $2)))
+ (semantic-tag ',(car $3) 'token :type ',$2 :rest ',(cdr $3)))))
+ (token_type_opt (nil) ((token_type)))
+ (token_type ((LT SYMBOL GT) (progn $2)))
(type_decl
((TYPE token_type plist_opt)
- `(wisent-raw-tag
- (semantic-tag ',$2 'type :value ',$3))))
- (plist_opt
- (nil)
- ((plist)))
- (plist
- ((plist put_value)
- (append
- (list $2)
- $1))
- ((put_value)
- (list $1)))
+ `(wisent-raw-tag (semantic-tag ',$2 'type :value ',$3))))
+ (plist_opt (nil) ((plist)))
+ (plist ((plist put_value) (append (list $2) $1))
+ ((put_value) (list $1)))
(use_name_list
((BRACE_BLOCK)
(mapcar #'semantic-tag-name
- (semantic-parse-region
- (car $region1)
- (cdr $region1)
- 'use_names 1))))
- (use_names
- ((LBRACE)
- nil)
- ((RBRACE)
- nil)
- ((SYMBOL)
- (wisent-raw-tag
- (semantic-tag $1 'use-name))))
+ (semantic-parse-region (car $region1) (cdr $region1)
+ 'use_names 1))))
+ (use_names ((LBRACE) nil) ((RBRACE) nil)
+ ((SYMBOL) (wisent-raw-tag (semantic-tag $1 'use-name))))
(use_macros_decl
((USE-MACROS SYMBOL use_name_list)
`(wisent-raw-tag
(semantic-tag "macro" 'macro :type ',$2 :value ',$3))))
- (string_value
- ((STRING)
- (read $1)))
- (any_value
- ((SYMBOL))
- ((STRING))
- ((PAREN_BLOCK))
- ((PREFIXED_LIST))
- ((SEXP)))
- (symbols
- ((lifo_symbols)
- (nreverse $1)))
- (lifo_symbols
- ((lifo_symbols SYMBOL)
- (cons $2 $1))
- ((SYMBOL)
- (list $1)))
+ (string_value ((STRING) (read $1)))
+ (any_value ((SYMBOL)) ((STRING)) ((PAREN_BLOCK)) ((PREFIXED_LIST))
+ ((SEXP)))
+ (symbols ((lifo_symbols) (nreverse $1)))
+ (lifo_symbols ((lifo_symbols SYMBOL) (cons $2 $1))
+ ((SYMBOL) (list $1)))
(nonterminal
((SYMBOL
(setq semantic-grammar-wy--nterm $1 semantic-grammar-wy--rindx 0)
COLON rules SEMI)
- (wisent-raw-tag
- (semantic-tag $1 'nonterminal :children $4))))
- (rules
- ((lifo_rules)
- (apply #'nconc
- (nreverse $1))))
- (lifo_rules
- ((lifo_rules OR rule)
- (cons $3 $1))
- ((rule)
- (list $1)))
+ (wisent-raw-tag (semantic-tag $1 'nonterminal :children $4))))
+ (rules ((lifo_rules) (apply #'nconc (nreverse $1))))
+ (lifo_rules ((lifo_rules OR rule) (cons $3 $1)) ((rule) (list $1)))
(rule
((rhs)
(let*
((nterm semantic-grammar-wy--nterm)
- (rindx semantic-grammar-wy--rindx)
- (rhs $1)
- comps prec action elt)
- (setq semantic-grammar-wy--rindx
- (1+ semantic-grammar-wy--rindx))
+ (rindx semantic-grammar-wy--rindx) (rhs $1) comps prec action
+ elt)
+ (setq semantic-grammar-wy--rindx (1+ semantic-grammar-wy--rindx))
(while rhs
- (setq elt
- (car rhs)
- rhs
- (cdr rhs))
+ (setq elt (car rhs) rhs (cdr rhs))
(cond
((vectorp elt)
(if prec
(error "Duplicate %%prec in `%s:%d' rule" nterm rindx))
- (setq prec
- (aref elt 0)))
+ (setq prec (aref elt 0)))
((consp elt)
- (if
- (or action comps)
- (setq comps
- (cons elt comps)
- semantic-grammar-wy--rindx
+ (if (or action comps)
+ (setq comps (cons elt comps) semantic-grammar-wy--rindx
(1+ semantic-grammar-wy--rindx))
- (setq action
- (car elt))))
- (t
- (setq comps
- (cons elt comps)))))
+ (setq action (car elt))))
+ (t (setq comps (cons elt comps)))))
(wisent-cook-tag
(wisent-raw-tag
- (semantic-tag
- (format "%s:%d" nterm rindx)
- 'rule :type
- (if comps "group" "empty")
- :value comps :prec prec :expr action))))))
- (rhs
- (nil)
- ((rhs item)
- (cons $2 $1))
- ((rhs action)
- (cons
- (list $2)
- $1))
- ((rhs PREC item)
- (cons
- (vector $3)
- $1)))
- (action
- ((PAREN_BLOCK))
- ((PREFIXED_LIST))
- ((BRACE_BLOCK)
- (format "(progn\n%s)"
- (let
- ((s $1))
- (if
- (string-match "^{[\r\n ]*" s)
- (setq s
- (substring s
- (match-end 0))))
- (if
- (string-match "[\r\n ]*}$" s)
- (setq s
- (substring s 0
- (match-beginning 0))))
- s))))
- (items
- ((lifo_items)
- (nreverse $1)))
- (lifo_items
- ((lifo_items item)
- (cons $2 $1))
- ((item)
- (list $1)))
- (item
- ((SYMBOL))
- ((CHARACTER))))
- (grammar prologue epilogue declaration nonterminal rule put_names put_values use_names))
+ (semantic-tag (format "%s:%d" nterm rindx) 'rule :type
+ (if comps "group" "empty") :value comps :prec
+ prec :expr action))))))
+ (rhs (nil) ((rhs item) (cons $2 $1))
+ ((rhs action) (cons (list $2) $1))
+ ((rhs PREC item) (cons (vector $3) $1)))
+ (action ((PAREN_BLOCK)) ((PREFIXED_LIST))
+ ((BRACE_BLOCK)
+ (format "(progn\n%s)"
+ (let ((s $1))
+ (if (string-match "^{[\r\n ]*" s)
+ (setq s (substring s (match-end 0))))
+ (if (string-match "[\r\n ]*}$" s)
+ (setq s (substring s 0 (match-beginning 0))))
+ s))))
+ (items ((lifo_items) (nreverse $1)))
+ (lifo_items ((lifo_items item) (cons $2 $1)) ((item) (list $1)))
+ (item ((SYMBOL)) ((CHARACTER))))
+ (grammar prologue epilogue declaration nonterminal rule put_names
+ put_values use_names))
"Parser table.")
(defun semantic-grammar-wy--install-parser ()
;;
(define-lex-keyword-type-analyzer semantic-grammar-wy--<keyword>-keyword-analyzer
"keyword analyzer for <keyword> tokens."
- "\\(\\sw\\|\\s_\\)+")
+ "\\(\\sw\\|\\s_\\)+"
+ )
(define-lex-regex-type-analyzer semantic-grammar-wy--<char>-regexp-analyzer
"regexp analyzer for <char> tokens."
semantic-grammar-lex-c-char-re
nil
- 'CHARACTER)
+ 'CHARACTER
+ )
(define-lex-sexp-type-analyzer semantic-grammar-wy--<string>-sexp-analyzer
"sexp analyzer for <string> tokens."
"\\s\""
- 'STRING)
+ 'STRING
+ )
(define-lex-block-type-analyzer semantic-grammar-wy--<block>-block-analyzer
"block analyzer for <block> tokens."
"\\s(\\|\\s)"
- '((("(" LPAREN PAREN_BLOCK)
- ("{" LBRACE BRACE_BLOCK))
- (")" RPAREN)
+ '((("(" LPAREN PAREN_BLOCK) ("{" LBRACE BRACE_BLOCK)) (")" RPAREN)
("}" RBRACE))
)
(define-lex-string-type-analyzer semantic-grammar-wy--<punctuation>-string-analyzer
"string analyzer for <punctuation> tokens."
"\\(\\s.\\|\\s$\\|\\s'\\)+"
- '((GT . ">")
- (LT . "<")
- (OR . "|")
- (SEMI . ";")
- (COLON . ":"))
- 'punctuation)
+ '((GT . ">") (LT . "<") (OR . "|") (SEMI . ";") (COLON . ":"))
+ 'punctuation
+ )
(define-lex-regex-type-analyzer semantic-grammar-wy--<symbol>-regexp-analyzer
"regexp analyzer for <symbol> tokens."
":?\\(\\sw\\|\\s_\\)+"
'((PERCENT_PERCENT . "\\`%%\\'"))
- 'SYMBOL)
+ 'SYMBOL
+ )
(define-lex-sexp-type-analyzer semantic-grammar-wy--<qlist>-sexp-analyzer
"sexp analyzer for <qlist> tokens."
"\\s'\\s-*("
- 'PREFIXED_LIST)
+ 'PREFIXED_LIST
+ )
(define-lex-sexp-type-analyzer semantic-grammar-wy--<sexp>-sexp-analyzer
"sexp analyzer for <sexp> tokens."
"\\="
- 'SEXP)
+ 'SEXP
+ )
\f
;;; Epilogue
return the compiled function.
(fn FUNCTION-OR-FILE &optional OUTPUT)")
+(function-put 'native-compile 'function-type '(function ((or string symbol) &optional string) (or native-comp-function string)))
(autoload 'batch-native-compile "comp" "\
Perform batch native compilation of remaining command-line arguments.
of (commands) to run simultaneously.
(fn FILES &optional RECURSIVELY LOAD SELECTOR)")
-(register-definition-prefixes "comp-run" '("comp-" "native-comp"))
+(register-definition-prefixes "comp-run" '("comp-" "native-"))
\f
;;; Generated autoloads from vc/compare-w.el
\f
;;; Generated autoloads from eshell/em-extpipe.el
-(defgroup eshell-extpipe nil "\
-Native shell pipelines.
-
-This module lets you construct pipelines that use your operating
-system's shell instead of Eshell's own pipelining support. This
-is especially relevant when executing commands on a remote
-machine using Eshell's Tramp integration: using the remote
-shell's pipelining avoids copying the data which will flow
-through the pipeline to local Emacs buffers and then right back
-again." :tag "External pipelines" :group 'eshell-module)
(register-definition-prefixes "em-extpipe" '("eshell-"))
\f
\f
;;; Generated autoloads from eshell/em-script.el
+(autoload 'eshell-execute-file "em-script" "\
+Execute a series of Eshell commands in FILE, passing ARGS.
+If DESTINATION is t, write the command output to the current buffer. If
+nil, don't write the output anywhere. For any other value, output to
+the corresponding Eshell target (see `eshell-get-target').
+
+Comments begin with `#'.
+
+(fn FILE &optional ARGS DESTINATION)")
+(autoload 'eshell-batch-file "em-script" "\
+Execute an Eshell script as a batch script from the command line.
+Inside your Eshell script file, you can add the following at the
+top in order to make it into an executable script:
+
+ #!/usr/bin/env -S emacs --batch -f eshell-batch-file")
(register-definition-prefixes "em-script" '("eshell"))
\f
\f
;;; Generated autoloads from erc/erc.el
-(push (purecopy '(erc 5 6 -4)) package--builtin-versions)
+(push (purecopy '(erc 5 6)) package--builtin-versions)
(dolist (symbol '( erc-sasl erc-spelling ; 29
erc-imenu erc-nicks)) ; 30
(custom-add-load symbol symbol))
string containing the actual image data. If the property `:type TYPE'
is omitted or nil, try to determine the image type from its first few
bytes of image data. If that doesn't work, and the property `:file
-FILE' provide a file name, use its file extension as idication of the
+FILE' provide a file name, use its file extension as indication of the
image type. If `:type TYPE' is provided, it must match the actual type
determined for FILE or DATA by `create-image'.
Interactively, in Transient Mark mode when the mark is active, call
`ispell-region' to check the active region for spelling errors.
+Non-interactively, this happens if REGION is non-nil.
Word syntax is controlled by the definition of the chosen dictionary,
which is in `ispell-local-dictionary-alist' or `ispell-dictionary-alist'.
(autoload 'ispell-pdict-save "ispell" "\
Check to see if the personal dictionary has been modified.
If so, ask if it needs to be saved.
+If NO-QUERY is non-nil, save the personal dictionary without asking.
+Interactively, if `ispell-silently-savep' is non-nil, don't ask.
+If FORCE-SAVE is non-nil, suggest to save the personal dictionary even
+if not modified; this always happens interactively.
(fn &optional NO-QUERY FORCE-SAVE)" t)
(autoload 'ispell-help "ispell" "\
Selections are:
\\`0'..\\`9' Replace the word with a digit offered in the *Choices* buffer.
-\\`SPC' Accept word this time.
-\\`i' Accept word and insert into private dictionary.
-\\`a' Accept word for this session.
-\\`A' Accept word and place in `buffer-local dictionary'.
-\\`r' Replace word with typed-in value. Rechecked.
-\\`R' Replace word with typed-in value. Query-replaced in buffer. Rechecked.
-\\`?' Show these commands.
-\\`x' Exit spelling buffer. Move cursor to original point.
-\\`X' Exit spelling buffer. Leaves cursor at the current point, and permits
- the aborted check to be completed later.
-\\`q' Quit spelling session (Kills ispell process).
-\\`l' Look up typed-in replacement in alternate dictionary. Wildcards okay.
-\\`u' Like \\`i', but the word is lower-cased first.
-\\`m' Place typed-in value in personal dictionary, then recheck current word.
-\\`C-l' Redraw screen.
-\\`C-r' Recursive edit.
-\\`C-z' Suspend Emacs or iconify frame.")
+\\`SPC' Accept word this time.
+\\`i' Accept word and insert into private dictionary.
+\\`a' Accept word for this session.
+\\`A' Accept word and place in `buffer-local dictionary'.
+\\`r' Replace word with typed-in value. Rechecked.
+\\`R' Replace word with typed-in value. Query-replaced in buffer. Rechecked.
+\\`?' Show these commands.
+\\`x' Exit spelling buffer. Move cursor to original point.
+\\`X' Exit spelling buffer. Leaves cursor at the current point, and permits
+ the aborted check to be completed later.
+\\`q' Quit spelling session (Kills ispell process).
+\\`l' Look up typed-in replacement in alternate dictionary. Wildcards okay.
+\\`u' Like \\`i', but the word is lower-cased first.
+\\`m' Place typed-in value in personal dictionary, then recheck current word.
+\\`C-l' Redraw screen.
+\\`C-r' Recursive edit.
+\\`C-z' Suspend Emacs or iconify frame.")
(autoload 'ispell-kill-ispell "ispell" "\
Kill current Ispell process (so that you may start a fresh one).
With NO-ERROR, just return non-nil if there was no Ispell running.
(fn &optional NO-ERROR CLEAR)" t)
(autoload 'ispell-change-dictionary "ispell" "\
Change to dictionary DICT for Ispell.
-With a prefix arg, set it \"globally\", for all buffers.
-Without a prefix arg, set it \"locally\", just for this buffer.
+If ARG is non-nil (interactively, the prefix arg), set it \"globally\",
+for all buffers. Otherwise, set it \"locally\", just for this buffer.
-By just answering RET you can find out what the current dictionary is.
+By just answering RET you can find out the name of the current dictionary.
(fn DICT &optional ARG)" t)
(autoload 'ispell-region "ispell" "\
-Interactively check a region for spelling errors.
+Interactively check region between REG-START and REG-END for spelling errors.
Leave the mark at the last misspelled word that the user was queried about.
Return nil if spell session was terminated, otherwise returns shift offset
(add-hook \\='mail-send-hook #\\='ispell-message)
(add-hook \\='mh-before-send-letter-hook #\\='ispell-message)
-You can bind this to the key C-c i in GNUS or mail by adding to
+You can bind this to a key in GNUS or mail by adding to
`news-reply-mode-hook' or `mail-mode-hook' the following lambda expression:
(lambda () (local-set-key \"\\C-ci\" \\='ispell-message))" t)
(register-definition-prefixes "ispell" '("check-ispell-version" "ispell-"))
\f
;;; Generated autoloads from org/ob-lilypond.el
-(register-definition-prefixes "ob-lilypond" '("lilypond-mode" "ob-lilypond-header-args" "org-babel-"))
+(register-definition-prefixes "ob-lilypond" '("ob-lilypond-header-args" "org-babel-"))
\f
;;; Generated autoloads from org/ob-lisp.el
\f
;;; Generated autoloads from org/ob-shell.el
-(register-definition-prefixes "ob-shell" '("org-babel-"))
+(register-definition-prefixes "ob-shell" '("ob-shell-async-" "org-babel-"))
\f
;;; Generated autoloads from org/ob-sql.el
\f
;;; Generated autoloads from org/org.el
-(push (purecopy '(org 9 6 15)) package--builtin-versions)
+(push (purecopy '(org 9 7 4)) package--builtin-versions)
(autoload 'org-babel-do-load-languages "org" "\
Load the languages defined in `org-babel-load-languages'.
(fn PATH &optional IN-EMACS LINE SEARCH)")
(autoload 'org-open-at-point-global "org" "\
-Follow a link or a time-stamp like Org mode does.
+Follow a link or a timestamp like Org mode does.
Also follow links and emails as seen by `thing-at-point'.
This command can be called in any mode to follow an external
-link or a time-stamp that has Org mode syntax. Its behavior
+link or a timestamp that has Org mode syntax. Its behavior
is undefined when called on internal links like fuzzy links.
Raise a user error when there is nothing to follow." t)
(autoload 'org-offer-links-in-entry "org" "\
With a numeric prefix, show all headlines up to that level.
(fn &optional ARG)" t)
-(register-definition-prefixes "org-cycle" '("org-cycle-"))
+(register-definition-prefixes "org-cycle" '("org-"))
\f
;;; Generated autoloads from org/org-datetree.el
(register-definition-prefixes "org-element" '("org-element-"))
+\f
+;;; Generated autoloads from org/org-element-ast.el
+
+(register-definition-prefixes "org-element-ast" '("org-element-"))
+
\f
;;; Generated autoloads from org/org-entities.el
\f
;;; Generated autoloads from org/ox-ascii.el
-(register-definition-prefixes "ox-ascii" '("org-ascii-"))
+(register-definition-prefixes "ox-ascii" '("org-"))
\f
;;; Generated autoloads from org/ox-beamer.el
\f
;;; Generated autoloads from org/ox-html.el
-(register-definition-prefixes "ox-html" '("org-html-"))
+(register-definition-prefixes "ox-html" '("org-"))
\f
;;; Generated autoloads from org/ox-icalendar.el
\f
;;; Generated autoloads from org/ox-md.el
-(register-definition-prefixes "ox-md" '("org-md-"))
+(register-definition-prefixes "ox-md" '("org-"))
\f
;;; Generated autoloads from org/ox-odt.el
\f
;;; Generated autoloads from org/ox-texinfo.el
-(register-definition-prefixes "ox-texinfo" '("org-texinfo-"))
+(register-definition-prefixes "ox-texinfo" '("org-"))
\f
;;; Generated autoloads from emacs-lisp/package.el
(register-definition-prefixes "pgtk-dnd" '("pgtk-dnd-"))
+\f
+;;; Generated autoloads from progmodes/php-ts-mode.el
+
+(autoload 'php-ts-mode "php-ts-mode" "\
+Major mode for editing PHP, powered by tree-sitter.
+
+(fn)" t)
+(autoload 'php-ts-mode-run-php-webserver "php-ts-mode" "\
+Run PHP built-in web server.
+
+PORT: Port number of built-in web server, default `php-ts-mode-ws-port'.
+Prompt for the port if the default value is nil.
+HOSTNAME: Hostname or IP address of Built-in web server,
+default `php-ts-mode-ws-hostname'. Prompt for the hostname if the
+default value is nil.
+DOCUMENT-ROOT: Path to Document root, default `php-ts-mode-ws-document-root'.
+Prompt for the document-root if the default value is nil.
+ROUTER-SCRIPT: Path of the router PHP script,
+see `https://www.php.net/manual/en/features.commandline.webserver.php'
+NUM-OF-WORKERS: Before run the web server set the
+PHP_CLI_SERVER_WORKERS env variable useful for testing code against
+multiple simultaneous requests.
+
+Interactively, when invoked with prefix argument, always prompt
+for PORT, HOSTNAME, DOCUMENT-ROOT and ROUTER-SCRIPT.
+
+(fn &optional PORT HOSTNAME DOCUMENT-ROOT ROUTER-SCRIPT NUM-OF-WORKERS)" t)
+(autoload 'run-php "php-ts-mode" "\
+Run an PHP interpreter as a inferior process.
+
+Arguments CMD an CONFIG, default to `php-ts-mode-php-executable'
+and `php-ts-mode-php-config' respectively, control which PHP interpreter is run.
+Prompt for CMD if `php-ts-mode-php-executable' is nil.
+Optional CONFIG, if supplied, is the php.ini file to use.
+
+(fn &optional CMD CONFIG)" t)
+(register-definition-prefixes "php-ts-mode" '("inferior-php-ts-mode" "php-ts-"))
+
\f
;;; Generated autoloads from textmodes/picture.el
\f
;;; Generated autoloads from progmodes/project.el
-(push (purecopy '(project 0 11 0)) package--builtin-versions)
+(push (purecopy '(project 0 11 1)) package--builtin-versions)
(autoload 'project-current "project" "\
Return the project instance in DIRECTORY, defaulting to `default-directory'.
word around EVENT; otherwise, set point to the location of EVENT.
(fn EVENT)" t)
+(autoload 'touch-screen-translate-touch "touch-screen" "\
+Translate touch screen events into a sequence of mouse events.
+PROMPT is the prompt string given to `read-key-sequence', or nil
+if this function is being called from the keyboard command loop.
+Value is a new key sequence.
+
+Read the touch screen event within `current-key-remap-sequence'
+and give it to `touch-screen-handle-touch'. Return any key
+sequence signaled.
+
+If `touch-screen-handle-touch' does not signal for an event to be
+returned after the last element of the key sequence is read,
+continue reading touch screen events until
+`touch-screen-handle-touch' signals. Return a sequence
+consisting of the first event encountered that is not a touch
+screen event.
+
+In addition to non-touchscreen events read, key sequences
+returned may contain any one of the following events:
+
+ (touchscreen-scroll WINDOW DX DY)
+
+where WINDOW specifies a window to scroll, and DX and DY are
+integers describing how many pixels to be scrolled horizontally
+and vertically,
+
+ (touchscreen-hold POSN)
+ (touchscreen-drag POSN)
+
+where POSN is the position of the long-press or touchpoint
+motion,
+
+ (touchscreen-restart-drag POSN)
+
+where POSN is the position of the tap,
+
+ (down-mouse-1 POSN)
+ (drag-mouse-1 POSN)
+
+where POSN is the position of the mouse button press or click,
+
+ (mouse-1 POSN)
+ (mouse-2 POSN)
+
+where POSN is the position of the mouse click, either `mouse-2'
+if POSN is on a link or a button, or `mouse-1' otherwise.
+
+(fn PROMPT)")
(autoload 'touch-screen-track-tap "touch-screen" "\
Track a single tap starting from EVENT.
EVENT should be a `touchscreen-begin' event.
\f
;;; Generated autoloads from window-tool-bar.el
-(push (purecopy '(window-tool-bar 0 2)) package--builtin-versions)
+(push (purecopy '(window-tool-bar 0 2 1)) package--builtin-versions)
(autoload 'window-tool-bar-string "window-tool-bar" "\
Return a (propertized) string for the tool bar.
(provide 'loaddefs)
;; Local Variables:
+;; no-byte-compile: t
;; version-control: never
;; no-update-autoloads: t
-;; no-byte-compile: t
;; no-native-compile: t
;; coding: utf-8-emacs-unix
;; End:
projects / emacs.git / commitdiff