ÿØÿà JFIF ÿÛ „ ( %!1!%*+... 983,7(-.-
site-lisp/libidn/idna.el 0000644 00000014500 15234271402 0011153 0 ustar 00 ;;; idna.el --- Internationalizing Domain Names in Applications.
;; Copyright (C) 2003-2016 Simon Josefsson
;; Keywords: idna, idn, domain name, internationalization
;; This file is part of GNU Libidn.
;; This program is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see .
;;; Commentary:
;; A simple wrapper around the command line "idn" utility in GNU
;; Libidn to make IDNA ToASCII and ToUnicode operations available in
;; Emacs.
;; Example:
;;
;; (idna-to-ascii "räksmörgås.gnu.org")
;; => "xn--rksmrgs-5wao1o.gnu.org"
;;
;; (idna-to-ascii "www.gnu.org")
;; => "www.gnu.org"
;;
;; (idna-to-unicode "xn--rksmrgs-5wao1o.gnu.org")
;; => "räksmörgås.gnu.org"
;;
;; (idna-to-unicode "www.gnu.org")
;; => "www.gnu.org"
;; Todo: Support AllowUnassigned and UseSTD3ASCIIRules somehow?
;; This package is useless unless your emacs has at least partial
;; support for the UTF-8 coding system.
;; Report bugs to bug-libidn@gnu.org.
;;; Code:
(defgroup idna nil
"Internationalizing Domain Names in Applications.")
(defcustom idna-program "idn"
"Name of the GNU Libidn \"idn\" application."
:type 'string
:group 'idna)
(defcustom idna-environment '("CHARSET=UTF-8")
"List of environment variable definitions prepended to `process-environment'."
:type '(repeat string)
:group 'idna)
(defcustom idna-to-ascii-parameters '("--quiet"
"--idna-to-ascii"
"--usestd3asciirules")
"Parameters passed to `idna-program' to invoke IDNA ToASCII mode."
:type '(repeat string)
:group 'idna)
(defcustom idna-to-unicode-parameters '("--quiet"
"--idna-to-unicode"
"--usestd3asciirules")
"Parameters passed `idna-program' to invoke IDNA ToUnicode mode."
:type '(repeat string)
:group 'idna)
;; Internal process handling:
(defvar idna-to-ascii-process nil
"Internal variable holding process for ToASCII.")
(defvar idna-to-ascii-response nil
"Internal variable holding response data received from ToASCII process.")
(defun idna-to-ascii-response-clear ()
(setq idna-to-ascii-response nil))
(defun idna-to-ascii-response ()
(while (and (eq (process-status idna-to-ascii-process) 'run)
(null idna-to-ascii-response))
(accept-process-output idna-to-ascii-process 1))
idna-to-ascii-response)
(defun idna-to-ascii-filter (process string)
(setq idna-to-ascii-response (concat idna-to-ascii-response string)))
(defun idna-to-ascii-process ()
(if (and idna-to-ascii-process
(eq (process-status idna-to-ascii-process) 'run))
idna-to-ascii-process
(if idna-to-ascii-process
(condition-case ()
(kill-process idna-to-ascii-process)
(error)))
(when (setq idna-to-ascii-process
(let ((process-environment (append idna-environment
process-environment)))
(apply 'start-process "idna" nil idna-program
idna-to-ascii-parameters)))
(set-process-filter idna-to-ascii-process 'idna-to-ascii-filter)
(set-process-coding-system idna-to-ascii-process 'utf-8 'utf-8)
(process-kill-without-query idna-to-ascii-process))
idna-to-ascii-process))
(defvar idna-to-unicode-process nil
"Internal variable holding process for ToASCII.")
(defvar idna-to-unicode-response nil
"Internal variable holding response data received from ToASCII process.")
(defun idna-to-unicode-response-clear ()
(setq idna-to-unicode-response nil))
(defun idna-to-unicode-response ()
(while (and (eq (process-status idna-to-unicode-process) 'run)
(null idna-to-unicode-response))
(accept-process-output idna-to-unicode-process 1))
idna-to-unicode-response)
(defun idna-to-unicode-filter (process string)
(setq idna-to-unicode-response (concat idna-to-unicode-response string)))
(defun idna-to-unicode-process ()
(if (and idna-to-unicode-process
(eq (process-status idna-to-unicode-process) 'run))
idna-to-unicode-process
(if idna-to-unicode-process
(condition-case ()
(kill-process idna-to-unicode-process)
(error)))
(when (setq idna-to-unicode-process
(let ((process-environment (append idna-environment
process-environment)))
(apply 'start-process "idna" nil idna-program
idna-to-unicode-parameters)))
(set-process-filter idna-to-unicode-process 'idna-to-unicode-filter)
(set-process-coding-system idna-to-unicode-process 'utf-8 'utf-8)
(process-kill-without-query idna-to-unicode-process))
idna-to-unicode-process))
;; IDNA Elisp API:
(defun idna-to-ascii (str)
"Returns an ASCII Compatible Encoding (ACE) of STR.
It is computed by the IDNA ToASCII operation, after converting the
input to UTF-8."
(let ((proc (idna-to-ascii-process))
string)
(if (null proc)
(error "Cannot start idn application (to-ascii)")
(idna-to-ascii-response-clear)
(process-send-string proc (concat str "\n"))
(setq string (idna-to-ascii-response))
(if (and string (string= (substring string (1- (length string))) "\n"))
(substring string 0 (1- (length string)))
string))))
(defun idna-to-unicode (str)
"Returns a possibly multibyte string after decoding STR.
It is computed by the IDNA ToUnicode operation."
(let ((proc (idna-to-unicode-process))
string)
(if (null proc)
(error "Cannot start idn application (to-unicode)")
(idna-to-unicode-response-clear)
(process-send-string proc (concat str "\n"))
(setq string (idna-to-unicode-response))
(if (and string (string= (substring string (1- (length string))) "\n"))
(substring string 0 (1- (length string)))
string))))
(defun idna-shutdown ()
"Kill the IDNA related processes."
(interactive)
(if (and idna-to-ascii-process
(eq (process-status idna-to-ascii-process) 'run))
(kill-process idna-to-ascii-process))
(if (and idna-to-unicode-process
(eq (process-status idna-to-unicode-process) 'run))
(kill-process idna-to-unicode-process)))
(provide 'idna)
;;; idna.el ends here
site-lisp/libidn/punycode.el 0000644 00000014172 15234271404 0012075 0 ustar 00 ;;; punycode.el --- An ASCII compatible Unicode encoding format.
;; Copyright (C) 2003-2016 Simon Josefsson
;; Keywords: punycode, idna, idn, unicode, encoding
;; This file is part of GNU Libidn.
;; This program is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see .
;;; Commentary:
;; A simple wrapper around the command line "idn" utility in GNU
;; Libidn to make punycode operations available in Emacs.
;; Example:
;;
;; (punycode-encode "räksmörgås")
;; => "rksmrgs-5wao1o"
;;
;; (punycode-encode "foo")
;; => "foo-"
;;
;; (punycode-decode "rksmrgs-5wao1o")
;; => "räksmörgås"
;;
;; (punycode-decode "foo-")
;; => "foo"
;; This package is useless unless your emacs has at least partial
;; support for the UTF-8 coding system.
;; Report bugs to bug-libidn@gnu.org.
;;; Code:
(defgroup punycode nil
"Punycode: An ASCII compatible Unicode encoding format.")
(defcustom punycode-program "idn"
"Name of the GNU Libidn \"idn\" application."
:type 'string
:group 'punycode)
(defcustom punycode-environment '("CHARSET=UTF-8")
"List of environment variable definitions prepended to `process-environment'."
:type '(repeat string)
:group 'punycode)
(defcustom punycode-encode-parameters '("--quiet" "--punycode-encode")
"Parameters passed to `punycode-program' to invoke punycode encoding mode."
:type '(repeat string)
:group 'punycode)
(defcustom punycode-decode-parameters '("--quiet" "--punycode-decode")
"Parameters passed to `punycode-program' to invoke punycode decoding mode."
:type '(repeat string)
:group 'punycode)
;; Internal process handling:
(defvar punycode-encode-process nil
"Internal variable holding process for punycode encoding.")
(defvar punycode-encode-response nil
"Internal variable holding response data received from punycode process.")
(defun punycode-encode-response-clear ()
(setq punycode-encode-response nil))
(defun punycode-encode-response ()
(while (and (eq (process-status punycode-encode-process) 'run)
(null punycode-encode-response))
(accept-process-output punycode-encode-process 1))
punycode-encode-response)
(defun punycode-encode-filter (process string)
(setq punycode-encode-response (concat punycode-encode-response string)))
(defun punycode-encode-process ()
(if (and punycode-encode-process
(eq (process-status punycode-encode-process) 'run))
punycode-encode-process
(if punycode-encode-process
(condition-case ()
(kill-process punycode-encode-process)
(error)))
(when (setq punycode-encode-process
(let ((process-environment (append punycode-environment
process-environment)))
(apply 'start-process "punycode" nil punycode-program
punycode-encode-parameters)))
(set-process-filter punycode-encode-process 'punycode-encode-filter)
(set-process-coding-system punycode-encode-process 'utf-8 'utf-8)
(process-kill-without-query punycode-encode-process))
punycode-encode-process))
(defvar punycode-decode-process nil
"Internal variable holding process for punycode encoding.")
(defvar punycode-decode-response nil
"Internal variable holding response data received from punycode process.")
(defun punycode-decode-response-clear ()
(setq punycode-decode-response nil))
(defun punycode-decode-response ()
(while (and (eq (process-status punycode-decode-process) 'run)
(null punycode-decode-response))
(accept-process-output punycode-decode-process 1))
punycode-decode-response)
(defun punycode-decode-filter (process string)
(setq punycode-decode-response (concat punycode-decode-response string)))
(defun punycode-decode-process ()
(if (and punycode-decode-process
(eq (process-status punycode-decode-process) 'run))
punycode-decode-process
(if punycode-decode-process
(condition-case ()
(kill-process punycode-decode-process)
(error)))
(when (setq punycode-decode-process
(let ((process-environment (append punycode-environment
process-environment)))
(apply 'start-process "punycode" nil punycode-program
punycode-decode-parameters)))
(set-process-filter punycode-decode-process 'punycode-decode-filter)
(set-process-coding-system punycode-decode-process 'utf-8 'utf-8)
(process-kill-without-query punycode-decode-process))
punycode-decode-process))
;; Punycode Elisp API:
(defun punycode-encode (str)
"Returns a Punycode encoding of STR."
(let ((proc (punycode-encode-process))
string)
(if (null proc)
(error "Cannot start idn application")
(punycode-encode-response-clear)
(process-send-string proc (concat str "\n"))
(setq string (punycode-encode-response))
(if (and string (string= (substring string (1- (length string))) "\n"))
(substring string 0 (1- (length string)))
string))))
(defun punycode-decode (str)
"Returns a possibly multibyte string which is the punycode decoding of STR."
(let ((proc (punycode-decode-process))
string)
(if (null proc)
(error "Cannot start idn application")
(punycode-decode-response-clear)
(process-send-string proc (concat str "\n"))
(setq string (punycode-decode-response))
(if (and string (string= (substring string (1- (length string))) "\n"))
(substring string 0 (1- (length string)))
string))))
(defun punycode-shutdown ()
"Kill the punycode related process."
(interactive)
(if (and punycode-decode-process
(eq (process-status punycode-decode-process) 'run))
(kill-process punycode-decode-process))
(if (and punycode-encode-process
(eq (process-status punycode-encode-process) 'run))
(kill-process punycode-encode-process)))
(provide 'punycode)
;;; punycode.el ends here
site-lisp/libidn/idna.elc 0000644 00000011076 15234271404 0011325 0 ustar 00 ;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301\302\303#\210\304\305\306\307\310\311\312\301&\210\304\313\314\315\310\316\312\301&\210\304\317\320\321\310\322\312\301&\210\304\323\324\325\310\326\312\301&\207" [custom-declare-group idna nil "Internationalizing Domain Names in Applications." custom-declare-variable idna-program "idn" "Name of the GNU Libidn \"idn\" application." :type string :group idna-environment '("CHARSET=UTF-8") "List of environment variable definitions prepended to `process-environment'." (repeat string) idna-to-ascii-parameters '("--quiet" "--idna-to-ascii" "--usestd3asciirules") "Parameters passed to `idna-program' to invoke IDNA ToASCII mode." (repeat string) idna-to-unicode-parameters '("--quiet" "--idna-to-unicode" "--usestd3asciirules") "Parameters passed `idna-program' to invoke IDNA ToUnicode mode." (repeat string)] 8)
#@48 Internal variable holding process for ToASCII.
(defvar idna-to-ascii-process nil (#$ . 1246))
#@72 Internal variable holding response data received from ToASCII process.
(defvar idna-to-ascii-response nil (#$ . 1346))
(defalias 'idna-to-ascii-response-clear #[nil "\301\211\207" [idna-to-ascii-response nil] 2])
(defalias 'idna-to-ascii-response #[nil "\302!\303=\203 \204 \304\305\"\210\202 \207" [idna-to-ascii-process idna-to-ascii-response process-status run accept-process-output 1] 3])
(defalias 'idna-to-ascii-filter #[(process string) " P\211\207" [idna-to-ascii-response string] 2])
(defalias 'idna-to-ascii-process #[nil "\203 \305!\306=\203 \207\203\" \3071 \310!0\202! \210\202\" \210\311 \n\"\312\313\314\315 \f%)\211\203C \316\317\"\210\320\321\211#\210\322!\210\207" [idna-to-ascii-process idna-environment process-environment idna-program idna-to-ascii-parameters process-status run (error) kill-process append apply start-process "idna" nil set-process-filter idna-to-ascii-filter set-process-coding-system utf-8 process-kill-without-query] 6])
#@48 Internal variable holding process for ToASCII.
(defvar idna-to-unicode-process nil (#$ . 2339))
#@72 Internal variable holding response data received from ToASCII process.
(defvar idna-to-unicode-response nil (#$ . 2441))
(defalias 'idna-to-unicode-response-clear #[nil "\301\211\207" [idna-to-unicode-response nil] 2])
(defalias 'idna-to-unicode-response #[nil "\302!\303=\203 \204 \304\305\"\210\202 \207" [idna-to-unicode-process idna-to-unicode-response process-status run accept-process-output 1] 3])
(defalias 'idna-to-unicode-filter #[(process string) " P\211\207" [idna-to-unicode-response string] 2])
(defalias 'idna-to-unicode-process #[nil "\203 \305!\306=\203 \207\203\" \3071 \310!0\202! \210\202\" \210\311 \n\"\312\313\314\315 \f%)\211\203C \316\317\"\210\320\321\211#\210\322!\210\207" [idna-to-unicode-process idna-environment process-environment idna-program idna-to-unicode-parameters process-status run (error) kill-process append apply start-process "idna" nil set-process-filter idna-to-unicode-filter set-process-coding-system utf-8 process-kill-without-query] 6])
#@135 Returns an ASCII Compatible Encoding (ACE) of STR.
It is computed by the IDNA ToASCII operation, after converting the
input to UTF-8.
(defalias 'idna-to-ascii #[(str) "\303 \304\211\204 \305\306!\2025 \307 \210\310 \n\311P\"\210\312 \211\2034 \211GS\304O\311\230\2034 \313GSO\2025 *\207" [string proc str idna-to-ascii-process nil error "Cannot start idn application (to-ascii)" idna-to-ascii-response-clear process-send-string "\n" idna-to-ascii-response 0] 5 (#$ . 3459)])
#@105 Returns a possibly multibyte string after decoding STR.
It is computed by the IDNA ToUnicode operation.
(defalias 'idna-to-unicode #[(str) "\303 \304\211\204 \305\306!\2025 \307 \210\310 \n\311P\"\210\312 \211\2034 \211GS\304O\311\230\2034 \313GSO\2025 *\207" [string proc str idna-to-unicode-process nil error "Cannot start idn application (to-unicode)" idna-to-unicode-response-clear process-send-string "\n" idna-to-unicode-response 0] 5 (#$ . 3949)])
#@34 Kill the IDNA related processes.
(defalias 'idna-shutdown #[nil "\203 \302!\303=\203 \304!\210 \205 \302 !\303=\205 \304 !\207" [idna-to-ascii-process idna-to-unicode-process process-status run kill-process] 2 (#$ . 4418) nil])
(provide 'idna)
site-lisp/libidn/punycode.elc 0000644 00000010776 15234271404 0012246 0 ustar 00 ;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301\302\303#\210\304\305\306\307\310\311\312\301&\210\304\313\314\315\310\316\312\301&\210\304\317\320\321\310\322\312\301&\210\304\323\324\325\310\326\312\301&\207" [custom-declare-group punycode nil "Punycode: An ASCII compatible Unicode encoding format." custom-declare-variable punycode-program "idn" "Name of the GNU Libidn \"idn\" application." :type string :group punycode-environment '("CHARSET=UTF-8") "List of environment variable definitions prepended to `process-environment'." (repeat string) punycode-encode-parameters '("--quiet" "--punycode-encode") "Parameters passed to `punycode-program' to invoke punycode encoding mode." (repeat string) punycode-decode-parameters '("--quiet" "--punycode-decode") "Parameters passed to `punycode-program' to invoke punycode decoding mode." (repeat string)] 8)
#@58 Internal variable holding process for punycode encoding.
(defvar punycode-encode-process nil (#$ . 1243))
#@73 Internal variable holding response data received from punycode process.
(defvar punycode-encode-response nil (#$ . 1355))
(defalias 'punycode-encode-response-clear #[nil "\301\211\207" [punycode-encode-response nil] 2])
(defalias 'punycode-encode-response #[nil "\302!\303=\203 \204 \304\305\"\210\202 \207" [punycode-encode-process punycode-encode-response process-status run accept-process-output 1] 3])
(defalias 'punycode-encode-filter #[(process string) " P\211\207" [punycode-encode-response string] 2])
(defalias 'punycode-encode-process #[nil "\203 \305!\306=\203 \207\203\" \3071 \310!0\202! \210\202\" \210\311 \n\"\312\313\314\315 \f%)\211\203C \316\317\"\210\320\321\211#\210\322!\210\207" [punycode-encode-process punycode-environment process-environment punycode-program punycode-encode-parameters process-status run (error) kill-process append apply start-process "punycode" nil set-process-filter punycode-encode-filter set-process-coding-system utf-8 process-kill-without-query] 6])
#@58 Internal variable holding process for punycode encoding.
(defvar punycode-decode-process nil (#$ . 2385))
#@73 Internal variable holding response data received from punycode process.
(defvar punycode-decode-response nil (#$ . 2497))
(defalias 'punycode-decode-response-clear #[nil "\301\211\207" [punycode-decode-response nil] 2])
(defalias 'punycode-decode-response #[nil "\302!\303=\203 \204 \304\305\"\210\202 \207" [punycode-decode-process punycode-decode-response process-status run accept-process-output 1] 3])
(defalias 'punycode-decode-filter #[(process string) " P\211\207" [punycode-decode-response string] 2])
(defalias 'punycode-decode-process #[nil "\203 \305!\306=\203 \207\203\" \3071 \310!0\202! \210\202\" \210\311 \n\"\312\313\314\315 \f%)\211\203C \316\317\"\210\320\321\211#\210\322!\210\207" [punycode-decode-process punycode-environment process-environment punycode-program punycode-decode-parameters process-status run (error) kill-process append apply start-process "punycode" nil set-process-filter punycode-decode-filter set-process-coding-system utf-8 process-kill-without-query] 6])
#@37 Returns a Punycode encoding of STR.
(defalias 'punycode-encode #[(str) "\303 \304\211\204 \305\306!\2025 \307 \210\310 \n\311P\"\210\312 \211\2034 \211GS\304O\311\230\2034 \313GSO\2025 *\207" [string proc str punycode-encode-process nil error "Cannot start idn application" punycode-encode-response-clear process-send-string "\n" punycode-encode-response 0] 5 (#$ . 3527)])
#@76 Returns a possibly multibyte string which is the punycode decoding of STR.
(defalias 'punycode-decode #[(str) "\303 \304\211\204 \305\306!\2025 \307 \210\310 \n\311P\"\210\312 \211\2034 \211GS\304O\311\230\2034 \313GSO\2025 *\207" [string proc str punycode-decode-process nil error "Cannot start idn application" punycode-decode-response-clear process-send-string "\n" punycode-decode-response 0] 5 (#$ . 3915)])
#@36 Kill the punycode related process.
(defalias 'punycode-shutdown #[nil "\203 \302!\303=\203 \304!\210 \205 \302 !\303=\205 \304 !\207" [punycode-decode-process punycode-encode-process process-status run kill-process] 2 (#$ . 4342) nil])
(provide 'punycode)
site-lisp/autoconf/autotest-mode.elc 0000644 00000004505 15234271404 0013560 0 ustar 00 ;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defvar autotest-font-lock-keywords '(("\\bdnl\\b\\(.*\\)" 1 font-lock-comment-face t) ("\\$[0-9*#@]" . font-lock-variable-name-face) ("^\\(m4_define\\|m4_defun\\)(\\[*\\([A-Za-z0-9_]+\\)" 2 font-lock-function-name-face) ("^AT_SETUP(\\[+\\([^]]+\\)" 1 font-lock-function-name-face) ("^AT_DATA(\\[+\\([^]]+\\)" 1 font-lock-variable-name-face) ("\\b\\(_?m4_[_a-z0-9]*\\|_?A[ST]_[_A-Z0-9]+\\)\\b" . font-lock-keyword-face) "default font-lock-keywords"))
#@36 syntax table used in autotest mode
(defvar autotest-mode-syntax-table nil (#$ . 859))
(byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\207" [autotest-mode-syntax-table make-syntax-table modify-syntax-entry 34 "\"" 35 "<\n" 10 ">#" 40 "()" 41 ")(" 91 "(]" 93 ")[" 42 "." 95 "_"] 4)
(defvar autotest-mode-map (byte-code "\301 \302\303\304#\210)\207" [map make-sparse-keymap define-key [(control c) (\;)] comment-region] 4))
#@118 Autotest value for `add-log-current-defun-function'.
This tells add-log.el how to find the current test group/macro.
(defalias 'autotest-current-defun #[nil "\212\300\301\302\303#\205 \304\224\304\225{)\207" [re-search-backward "^\\(m4_define\\|m4_defun\\|AT_SETUP\\)(\\[+\\([^]]+\\)" nil t 2] 4 (#$ . 1419)])
#@78 A major-mode to edit Autotest files like testsuite.at.
\{autotest-mode-map}
(defalias 'autotest-mode #[nil "\306 \210\307!\210\310\301!\210\311\310\302!\210\312\310\303!\210\313\310\314!\210\315\316\317\f\320!\210\321\322!\207" [autotest-mode-map add-log-current-defun-function comment-start parse-sexp-ignore-comments major-mode mode-name kill-all-local-variables use-local-map make-local-variable autotest-current-defun "# " t font-lock-defaults autotest-mode "Autotest" (autotest-font-lock-keywords nil) set-syntax-table run-hooks autotest-mode-hook autotest-mode-syntax-table] 2 (#$ . 1736) nil])
(provide 'autotest-mode)
site-lisp/autoconf/autoconf-mode.elc 0000644 00000005362 15234271404 0013530 0 ustar 00 ;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defvar autoconf-font-lock-keywords '(("\\bdnl \\(.*\\)" 1 font-lock-comment-face t) ("\\$[0-9*#@]" . font-lock-variable-name-face) ("\\b\\(m4_\\)?\\(builtin\\|change\\(com\\|quote\\|word\\)\\|d\\(e\\(bug\\(file\\|mode\\)\\|cr\\|f\\(ine\\|n\\)\\)\\|iv\\(ert\\|num\\)\\|nl\\|umpdef\\)\\|e\\(rrprint\\|syscmd\\|val\\)\\|f\\(ile\\|ormat\\)\\|gnu\\|i\\(f\\(def\\|else\\)\\|n\\(c\\(lude\\|r\\)\\|d\\(ex\\|ir\\)\\)\\)\\|l\\(en\\|ine\\)\\|m\\(4\\(exit\\|wrap\\)\\|aketemp\\|kstemp\\)\\|p\\(atsubst\\|opdef\\|ushdef\\)\\|regexp\\|s\\(hift\\|include\\|ubstr\\|ys\\(cmd\\|val\\)\\)\\|tra\\(ceo\\(ff\\|n\\)\\|nslit\\)\\|un\\(d\\(efine\\|ivert\\)\\|ix\\)\\)\\b" . font-lock-keyword-face) ("^\\(\\(m4_\\)?define\\(_default\\)?\\|A._DEFUN\\|m4_defun\\(_once\\|_init\\)?\\)(\\[?\\([A-Za-z0-9_]+\\)" 5 font-lock-function-name-face) "default font-lock-keywords"))
#@36 syntax table used in autoconf mode
(defvar autoconf-mode-syntax-table nil (#$ . 1255))
(byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\207" [autoconf-mode-syntax-table make-syntax-table modify-syntax-entry 34 "\"" 35 "<\n" 10 ">#" 40 "()" 41 ")(" 91 "(]" 93 ")[" 42 "." 95 "_"] 4)
(defvar autoconf-mode-map (byte-code "\301 \302\303\304#\210)\207" [map make-sparse-keymap define-key [(control c) (\;)] comment-region] 4))
#@107 Autoconf value for `add-log-current-defun-function'.
This tells add-log.el how to find the current macro.
(defalias 'autoconf-current-defun #[nil "\212\300\301\302\303#\205 \304\224\304\225{)\207" [re-search-backward "^\\(m4_define\\(_default\\)?\\|m4_defun\\(_once\\|_init\\)?\\|A._DEFUN\\)(\\[*\\([A-Za-z0-9_]+\\)" nil t 4] 4 (#$ . 1816)])
#@78 A major-mode to edit Autoconf files like configure.ac.
\{autoconf-mode-map}
(defalias 'autoconf-mode #[nil "\306 \210\307!\210\310\301!\210\311\310\302!\210\312\310\303!\210\313\310\314!\210\315\316\317\f\320!\210\321\322!\207" [autoconf-mode-map add-log-current-defun-function comment-start parse-sexp-ignore-comments major-mode mode-name kill-all-local-variables use-local-map make-local-variable autoconf-current-defun "# " t font-lock-defaults autoconf-mode "Autoconf" (autoconf-font-lock-keywords nil) set-syntax-table run-hooks autoconf-mode-hook autoconf-mode-syntax-table] 2 (#$ . 2165) nil])
(provide 'autoconf-mode)
site-lisp/autoconf/autotest-mode.el 0000644 00000007344 15234271404 0013421 0 ustar 00 ;;; autotest-mode.el --- autotest code editing commands for Emacs
;; Author: Akim Demaille (akim@freefriends.org)
;; Keywords: languages, faces, m4, Autotest
;; This file is part of Autoconf
;; Copyright (C) 2001, 2009-2012 Free Software Foundation, Inc.
;;
;; This program is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see .
;;; Commentary:
;; A major mode for editing autotest input (like testsuite.at).
;; Derived from autoconf-mode.el, by Martin Buchholz (martin@xemacs.org).
;;; Your should add the following to your Emacs configuration file:
;; (autoload 'autotest-mode "autotest-mode"
;; "Major mode for editing autotest files." t)
;; (setq auto-mode-alist
;; (cons '("\\.at\\'" . autotest-mode) auto-mode-alist))
;;; Code:
(defvar autotest-font-lock-keywords
`(("\\bdnl\\b\\(.*\\)" 1 font-lock-comment-face t)
("\\$[0-9*#@]" . font-lock-variable-name-face)
("^\\(m4_define\\|m4_defun\\)(\\[*\\([A-Za-z0-9_]+\\)" 2 font-lock-function-name-face)
("^AT_SETUP(\\[+\\([^]]+\\)" 1 font-lock-function-name-face)
("^AT_DATA(\\[+\\([^]]+\\)" 1 font-lock-variable-name-face)
("\\b\\(_?m4_[_a-z0-9]*\\|_?A[ST]_[_A-Z0-9]+\\)\\b" . font-lock-keyword-face)
"default font-lock-keywords")
)
(defvar autotest-mode-syntax-table nil
"syntax table used in autotest mode")
(setq autotest-mode-syntax-table (make-syntax-table))
(modify-syntax-entry ?\" "\"" autotest-mode-syntax-table)
;;(modify-syntax-entry ?\' "\"" autotest-mode-syntax-table)
(modify-syntax-entry ?# "<\n" autotest-mode-syntax-table)
(modify-syntax-entry ?\n ">#" autotest-mode-syntax-table)
(modify-syntax-entry ?\( "()" autotest-mode-syntax-table)
(modify-syntax-entry ?\) ")(" autotest-mode-syntax-table)
(modify-syntax-entry ?\[ "(]" autotest-mode-syntax-table)
(modify-syntax-entry ?\] ")[" autotest-mode-syntax-table)
(modify-syntax-entry ?* "." autotest-mode-syntax-table)
(modify-syntax-entry ?_ "_" autotest-mode-syntax-table)
(defvar autotest-mode-map
(let ((map (make-sparse-keymap)))
(define-key map '[(control c) (\;)] 'comment-region)
map))
(defun autotest-current-defun ()
"Autotest value for `add-log-current-defun-function'.
This tells add-log.el how to find the current test group/macro."
(save-excursion
(if (re-search-backward "^\\(m4_define\\|m4_defun\\|AT_SETUP\\)(\\[+\\([^]]+\\)" nil t)
(buffer-substring (match-beginning 2)
(match-end 2))
nil)))
;;;###autoload
(defun autotest-mode ()
"A major-mode to edit Autotest files like testsuite.at.
\\{autotest-mode-map}
"
(interactive)
(kill-all-local-variables)
(use-local-map autotest-mode-map)
(make-local-variable 'add-log-current-defun-function)
(setq add-log-current-defun-function 'autotest-current-defun)
(make-local-variable 'comment-start)
(setq comment-start "# ")
(make-local-variable 'parse-sexp-ignore-comments)
(setq parse-sexp-ignore-comments t)
(make-local-variable 'font-lock-defaults)
(setq major-mode 'autotest-mode)
(setq mode-name "Autotest")
(setq font-lock-defaults `(autotest-font-lock-keywords nil))
(set-syntax-table autotest-mode-syntax-table)
(run-hooks 'autotest-mode-hook))
(provide 'autotest-mode)
;;; autotest-mode.el ends here
site-lisp/autoconf/autoconf-mode.el 0000644 00000010330 15234271404 0013354 0 ustar 00 ;;; autoconf-mode.el --- autoconf code editing commands for Emacs
;; Author: Martin Buchholz (martin@xemacs.org)
;; Maintainer: Martin Buchholz
;; Keywords: languages, faces, m4, configure
;; This file is part of Autoconf
;; Copyright (C) 2001, 2006, 2009-2012 Free Software Foundation, Inc.
;;
;; This program is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see .
;; A major mode for editing autoconf input (like configure.in).
;; Derived from m4-mode.el by Andrew Csillag (drew@staff.prodigy.com)
;;; Your should add the following to your Emacs configuration file:
;; (autoload 'autoconf-mode "autoconf-mode"
;; "Major mode for editing autoconf files." t)
;; (setq auto-mode-alist
;; (cons '("\\.ac\\'\\|configure\\.in\\'" . autoconf-mode)
;; auto-mode-alist))
;;; Code:
;;thank god for make-regexp.el!
(defvar autoconf-font-lock-keywords
`(("\\bdnl \\(.*\\)" 1 font-lock-comment-face t)
("\\$[0-9*#@]" . font-lock-variable-name-face)
("\\b\\(m4_\\)?\\(builtin\\|change\\(com\\|quote\\|word\\)\\|d\\(e\\(bug\\(file\\|mode\\)\\|cr\\|f\\(ine\\|n\\)\\)\\|iv\\(ert\\|num\\)\\|nl\\|umpdef\\)\\|e\\(rrprint\\|syscmd\\|val\\)\\|f\\(ile\\|ormat\\)\\|gnu\\|i\\(f\\(def\\|else\\)\\|n\\(c\\(lude\\|r\\)\\|d\\(ex\\|ir\\)\\)\\)\\|l\\(en\\|ine\\)\\|m\\(4\\(exit\\|wrap\\)\\|aketemp\\|kstemp\\)\\|p\\(atsubst\\|opdef\\|ushdef\\)\\|regexp\\|s\\(hift\\|include\\|ubstr\\|ys\\(cmd\\|val\\)\\)\\|tra\\(ceo\\(ff\\|n\\)\\|nslit\\)\\|un\\(d\\(efine\\|ivert\\)\\|ix\\)\\)\\b" . font-lock-keyword-face)
("^\\(\\(m4_\\)?define\\(_default\\)?\\|A._DEFUN\\|m4_defun\\(_once\\|_init\\)?\\)(\\[?\\([A-Za-z0-9_]+\\)" 5 font-lock-function-name-face)
"default font-lock-keywords")
)
(defvar autoconf-mode-syntax-table nil
"syntax table used in autoconf mode")
(setq autoconf-mode-syntax-table (make-syntax-table))
(modify-syntax-entry ?\" "\"" autoconf-mode-syntax-table)
;;(modify-syntax-entry ?\' "\"" autoconf-mode-syntax-table)
(modify-syntax-entry ?# "<\n" autoconf-mode-syntax-table)
(modify-syntax-entry ?\n ">#" autoconf-mode-syntax-table)
(modify-syntax-entry ?\( "()" autoconf-mode-syntax-table)
(modify-syntax-entry ?\) ")(" autoconf-mode-syntax-table)
(modify-syntax-entry ?\[ "(]" autoconf-mode-syntax-table)
(modify-syntax-entry ?\] ")[" autoconf-mode-syntax-table)
(modify-syntax-entry ?* "." autoconf-mode-syntax-table)
(modify-syntax-entry ?_ "_" autoconf-mode-syntax-table)
(defvar autoconf-mode-map
(let ((map (make-sparse-keymap)))
(define-key map '[(control c) (\;)] 'comment-region)
map))
(defun autoconf-current-defun ()
"Autoconf value for `add-log-current-defun-function'.
This tells add-log.el how to find the current macro."
(save-excursion
(if (re-search-backward "^\\(m4_define\\(_default\\)?\\|m4_defun\\(_once\\|_init\\)?\\|A._DEFUN\\)(\\[*\\([A-Za-z0-9_]+\\)" nil t)
(buffer-substring (match-beginning 4)
(match-end 4))
nil)))
;;;###autoload
(defun autoconf-mode ()
"A major-mode to edit Autoconf files like configure.ac.
\\{autoconf-mode-map}
"
(interactive)
(kill-all-local-variables)
(use-local-map autoconf-mode-map)
(make-local-variable 'add-log-current-defun-function)
(setq add-log-current-defun-function 'autoconf-current-defun)
(make-local-variable 'comment-start)
(setq comment-start "# ")
(make-local-variable 'parse-sexp-ignore-comments)
(setq parse-sexp-ignore-comments t)
(make-local-variable 'font-lock-defaults)
(setq major-mode 'autoconf-mode)
(setq mode-name "Autoconf")
(setq font-lock-defaults `(autoconf-font-lock-keywords nil))
(set-syntax-table autoconf-mode-syntax-table)
(run-hooks 'autoconf-mode-hook))
(provide 'autoconf-mode)
;;; autoconf-mode.el ends here
site-lisp/site-start.d/autoconf-init.el 0000644 00000001067 15234271404 0014105 0 ustar 00 ;; Activate autoconf-mode
;; Uncomment the following code if you feel that autoconf-mode.el does better
;; job than Emacs's default autoconf.el.
;; (autoload 'autoconf-mode "autoconf-mode"
;; "Major mode for editing autoconf files." t)
;; (setq auto-mode-alist
;; (cons '("\.ac\'\|configure\.in\'" . autoconf-mode)
;; auto-mode-alist))
;; Activate autotest-mode
(autoload 'autotest-mode "autotest-mode"
"Major mode for editing autotest files." t)
(setq auto-mode-alist
(cons '("\.at\'" . autotest-mode) auto-mode-alist))
site-lisp/git/git-blame.el 0000644 00000000436 15234271404 0011430 0 ustar 00 (error "git-blame.el no longer ships with git. It's recommended
to replace its use with Emacs's own vc-annotate. See
contrib/emacs/README in git's
sources (https://github.com/git/git/blob/master/contrib/emacs/README)
for more info on suggested alternatives and for why this
happened.")
site-lisp/git/git.el 0000644 00000000566 15234271404 0010356 0 ustar 00 (error "git.el no longer ships with git. It's recommended to
replace its use with Magit, or simply delete references to git.el
in your initialization file(s). See contrib/emacs/README in git's
sources (https://github.com/git/git/blob/master/contrib/emacs/README)
for suggested alternatives and for why this happened. Emacs's own
VC mode and Magit are viable alternatives.")