| commit | author | age | ||
| 5cb5f7 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file contains utf-8 non-ASCII characters, | |
| 7 | ;;; and so cannot be loaded into Emacs 22 or earlier. | |
| 8 | (and (boundp 'emacs-version) | |
| 9 | (< (aref emacs-version (1- (length emacs-version))) ?A) | |
| 10 | (string-lessp emacs-version "23") | |
| 11 | (error "`%s' was compiled for Emacs 23 or later" #$)) | |
| 12 | ||
| 13 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 14 | ||
| 15 | ||
| 16 | (byte-code "\300\301!\210\300\302!\210\300\303\304\305#\210\300\306\304\305#\210\300\307!\210\300\310!\210\300\311!\210\312\313\304\314\315\316\317\320\321\322& \210\323\324\325\326\327DD\330\331\332\333\334\321\313\335\336& \207" [require dash log-edit magit-git nil t magit-utils ring server with-editor custom-declare-group git-commit "Edit Git commit messages." :prefix "git-commit-" :link (info-link "(magit)Editing Commit Messages") :group tools custom-declare-variable global-git-commit-mode funcall function #[0 "\300\207" [t] 1] "Non-nil if Global Git-Commit mode is enabled.\nSee the `global-git-commit-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `global-git-commit-mode'." :set custom-set-minor-mode :initialize #[514 "\301\"\210\205 \302\303\304\"\207" [global-git-commit-mode custom-initialize-default add-hook find-file-hook git-commit-setup-check-buffer] 5 "\n\n(fn SYMBOL EXP)"] :type boolean] 12) | |
| 17 | #@266 Edit Git commit messages. | |
| 18 | This global mode arranges for `git-commit-setup' to be called | |
| 19 | when a Git commit message file is opened. That usually happens | |
| 20 | when Git uses the Emacsclient as $GIT_EDITOR to have the user | |
| 21 | provide such a commit message. | |
| 22 | ||
| 23 | (fn &optional ARG) | |
| 24 | (defalias 'global-git-commit-mode #[256 "\301 \302\300\303=\203 \304\300!?\202 \305!\306V\"\210\203$ \307\310\311\"\210\202) \312\310\311\"\210\313\314\304\300!\2035 \315\2026 \316\"\210\317\320!\203` \321\300!\210\301 \203N \211\301 \232\203` \322\323\324\304\300!\203[ \325\202\\ \326#\266\210\327 \210\304\300!\207" [global-git-commit-mode current-message set-default toggle default-value prefix-numeric-value 0 add-hook find-file-hook git-commit-setup-check-buffer remove-hook run-hooks global-git-commit-mode-hook global-git-commit-mode-on-hook global-git-commit-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Global Git-Commit mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 1474) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)]) | |
| 25 | (defvar global-git-commit-mode-hook nil) | |
| 26 | (byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\210\311\312\313\314\315DD\316\317\320\321\322&\210\311\323\313\314\324DD\325\317\320\321\326\327\330\331!\205= \332\333\334& \210\311\335\313\314\336DD\337\317\320\321\326\327\330\331!\205V \332& \210\311\340\313\314\341DD\342\333\343\321\326\317\320& \210\311\344\313\314\345DD\346\333\347\321\350\317\320& \210\311\351\313\314\352DD\353\317\320\354\355\321\356& \210\311\357\313\314\360DD\361\317\320\354\355\321\362& \210\363\357\364\365\366$\210\311\367\313\314\370DD\371\317\320\354\372\321\373& \210\374\375\307\376\377\201@ \317\320\317\201A & \210\201B \201C \201D \201E \317\375%\210\201B \201F \201G \201H \317\375%\210\201B \201I \201J \201K \317\375%\210\201B \201L \201M \201N \317\375%\210\201B \201O \201P \201Q \317\375%\210\201B \201R \201S \201T \317\375%\210\201B \201U \330\201V !\203:\201W \202=\201X \201Y \317\375%\210\303\201Z \201[ \201U #\210\303\201Z \201\\ \201] \201^ !\206d\201_ #\210\201B \201` \330\201V !\203z\201a \202}\201b \201c \317\375%\210\201B \201d \201e \201f \317\375%\210\201B \201g \201h \201i \317\375%\210\201B \201j \201k \201l \317\375%\210\201B \201m \201n \201o \317\375%\207" [global-git-commit-mode-map global-git-commit-mode-hook variable-documentation put "Hook run after entering or leaving `global-git-commit-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode global-git-commit-mode nil boundp custom-declare-variable git-commit-major-mode funcall function #[0 "\300\207" [text-mode] 1] "Major mode used to edit Git commit messages.\nThe major mode configured here is turned on by the minor mode\n`git-commit-mode'." :group git-commit :type (choice (function-item text-mode) (const :tag "No major mode")) git-commit-setup-hook #[0 "\300\207" [(git-commit-save-message git-commit-setup-changelog-support git-commit-turn-on-auto-fill git-commit-propertize-diff bug-reference-mode with-editor-usage-message)] 1] "Hook run at the end of `git-commit-setup'." hook :get featurep magit-utils magit-hook-custom-get :options (git-commit-save-message git-commit-setup-changelog-support git-commit-turn-on-auto-fill git-commit-turn-on-flyspell git-commit-propertize-diff bug-reference-mode with-editor-usage-message) git-commit-post-finish-hook #[0 "\300\207" [nil] 1] "Hook run after the user finished writing a commit message.\n\n\\<with-editor-mode-map>This hook is only run after pressing \\[with-editor-finish] in a buffer used\nto edit a commit message. If a commit is created without the\nuser typing a message into a buffer, then this hook is not run.\n\nThis hook is not run until the new commit has been created. If\ndoing so takes Git longer than one second, then this hook isn't\nrun at all. For certain commands such as `magit-rebase-continue'\nthis hook is never run because doing so would lead to a race\ncondition.\n\nAlso see `magit-post-commit-hook'." git-commit-finish-query-functions #[0 "\300\207" [(git-commit-check-style-conventions)] 1] "List of functions called to query before performing commit.\n\nThe commit message buffer is current while the functions are\ncalled. If any of them returns nil, then the commit is not\nperformed and the buffer is not killed. The user should then\nfix the issue and try again.\n\nThe functions are called with one argument. If it is non-nil,\nthen that indicates that the user used a prefix argument to\nforce finishing the session despite issues. Functions should\nusually honor this wish and return non-nil." (git-commit-check-style-conventions) git-commit-style-convention-checks #[0 "\300\207" [(non-empty-second-line)] 1] "List of checks performed by `git-commit-check-style-conventions'.\nValid members are `non-empty-second-line' and `overlong-summary-line'.\nThat function is a member of `git-commit-finish-query-functions'." (non-empty-second-line overlong-summary-line) (list :convert-widget custom-hook-convert-widget) git-commit-summary-max-length #[0 "\300\207" [68] 1] "Column beyond which characters in the summary lines are highlighted.\n\nThe highlighting indicates that the summary is getting too long\nby some standards. It does in no way imply that going over the\nlimit a few characters or in some cases even many characters is\nanything that deserves shaming. It's just a friendly reminder\nthat if you can make the summary shorter, then you might want\nto consider doing so." :safe numberp number git-commit-fill-column #[0 "\300\207" [nil] 1] "Override `fill-column' in commit message buffers.\n\nIf this is non-nil, then it should be an integer. If that is the\ncase and the buffer-local value of `fill-column' is not already\nset by the time `git-commit-turn-on-auto-fill' is called as a\nmember of `git-commit-setup-hook', then that function sets the\nbuffer-local value of `fill-column' to the value of this option.\n\nThis option exists mostly for historic reasons. If you are not\nalready using it, then you probably shouldn't start doing so." (choice (const :tag "use regular fill-column") number) make-obsolete-variable fill-column "Magit 2.11.0" set git-commit-known-pseudo-headers #[0 "\300\207" [("Signed-off-by" "Acked-by" "Modified-by" "Cc" "Suggested-by" "Reported-by" "Tested-by" "Reviewed-by")] 1] "A list of Git pseudo headers to be highlighted." #[257 "\211<\205 \300\301\"\207" [-all-p stringp] 4 "\n\n(fn VAL)"] (repeat string) custom-declare-group git-commit-faces "Faces used for highlighting Git commit messages." :prefix "git-commit-" faces custom-declare-face git-commit-summary ((t :inherit font-lock-type-face)) "Face used for the summary in commit messages." git-commit-overlong-summary ((t :inherit font-lock-warning-face)) "Face used for the tail of overlong commit message summaries." git-commit-nonempty-second-line ((t :inherit font-lock-warning-face)) "Face used for non-whitespace on the second line of commit messages." git-commit-note ((t :inherit font-lock-string-face)) "Face used for notes in commit messages." git-commit-pseudo-header ((t :inherit font-lock-string-face)) "Face used for pseudo headers in commit messages." git-commit-known-pseudo-header ((t :inherit font-lock-keyword-face)) "Face used for the keywords of known pseudo headers in commit messages." git-commit-comment-branch-local magit ((t :inherit magit-branch-local)) ((t :inherit font-lock-variable-name-face)) "Face used for names of local branches in commit message comments." git-commit-comment-branch face-alias obsolete-face purecopy "Git-Commit 2.12.0" t git-commit-comment-branch-remote ((t :inherit magit-branch-remote)) ((t :inherit font-lock-variable-name-face)) "Face used for names of remote branches in commit message comments.\nThis is only used if Magit is available." git-commit-comment-detached ((t :inherit git-commit-comment-branch-local)) "Face used for detached `HEAD' in commit message comments." git-commit-comment-heading ((t :inherit git-commit-known-pseudo-header)) "Face used for headings in commit message comments." git-commit-comment-file ((t :inherit git-commit-pseudo-header)) "Face used for file names in commit message comments." git-commit-comment-action ((t :inherit bold)) "Face used for actions in commit message comments."] 12) | |
| 27 | #@36 Key map used by `git-commit-mode'. | |
| 28 | (defvar git-commit-mode-map (byte-code "\300 \301\302!\203 \303\304\305#\210\303\306\307#\210\202S \303\310\305#\210\303\311\307#\210\303\312\313#\210\303\314\315#\210\303\316\317#\210\303\320\321#\210\303\322\323#\210\303\324\325#\210\303\326\327#\210\303\330\331#\210\303\332\313#\210\303\333\315#\210\303\334\317#\210\303\335\321#\210\303\336\323#\210\303\337\325#\210\303\340\327#\210\303\341\331#\210\303\342\343#\210\211\207" [make-sparse-keymap featurep jkl define-key [134217737] git-commit-prev-message [134217739] git-commit-next-message [134217840] [134217838] "a" git-commit-ack "i" git-commit-suggested "m" git-commit-modified "o" git-commit-cc "p" git-commit-reported "r" git-commit-review "s" git-commit-signoff "t" git-commit-test "" " " " " "" "" "" "" "" [3 134217843] git-commit-save-message] 5) (#$ . 9896)) | |
| 29 | (require 'easymenu) | |
| 30 | #@22 Git Commit Mode Menu | |
| 31 | (defvar git-commit-mode-menu nil (#$ . 10837)) | |
| 32 | (easy-menu-do-define 'git-commit-mode-menu git-commit-mode-map "Git Commit Mode Menu" '("Commit" ["Previous" git-commit-prev-message t] ["Next" git-commit-next-message t] "-" ["Ack" git-commit-ack :active t :help "Insert an 'Acked-by' header"] ["Sign-Off" git-commit-signoff :active t :help "Insert a 'Signed-off-by' header"] ["Modified-by" git-commit-modified :active t :help "Insert a 'Modified-by' header"] ["Tested-by" git-commit-test :active t :help "Insert a 'Tested-by' header"] ["Reviewed-by" git-commit-review :active t :help "Insert a 'Reviewed-by' header"] ["CC" git-commit-cc t :help "Insert a 'Cc' header"] ["Reported" git-commit-reported :active t :help "Insert a 'Reported-by' header"] ["Suggested" git-commit-suggested t :help "Insert a 'Suggested-by' header"] "-" ["Save" git-commit-save-message t] ["Cancel" with-editor-cancel t] ["Commit" with-editor-finish t])) | |
| 33 | (defconst git-commit-filename-regexp "/\\(\\(\\(COMMIT\\|NOTES\\|PULLREQ\\|TAG\\)_EDIT\\|MERGE_\\|\\)MSG\\|\\(BRANCH\\|EDIT\\)_DESCRIPTION\\)\\'") | |
| 34 | (byte-code "\301\302\303\"\210\304\305\"\207" [git-commit-filename-regexp eval-after-load recentf #[0 "\301\302\"\207" [git-commit-filename-regexp add-to-list recentf-exclude] 3] add-to-list with-editor-file-name-history-exclude] 3) | |
| 35 | (defalias 'git-commit-setup-font-lock-in-buffer #[0 "\205 \303\304\305#)\266\203\205 \306 \207" [buffer-file-name git-commit-filename-regexp inhibit-changing-match-data nil t string-match git-commit-setup-font-lock] 7]) | |
| 36 | (add-hook 'after-change-major-mode-hook 'git-commit-setup-font-lock-in-buffer) | |
| 37 | (defalias 'git-commit-setup-check-buffer #[0 "\205 \303\304\305#)\266\203\205 \306 \207" [buffer-file-name git-commit-filename-regexp inhibit-changing-match-data nil t string-match git-commit-setup] 7]) | |
| 38 | (defalias 'git-commit-file-not-found #[0 " \305\306\307#)\266\203\204& \310\303!\205Q \305\306\307#)\266\203\205Q \311\312 !!?\205Q \313\314\305\306#\203@ \315 \316\305O!\202Q \307\317 \"\205Q \320\316 \"\321\320\322 \"Q\211\205f \311\312!!\205f \306 \323\306\"\210)\306\207" [git-commit-filename-regexp buffer-file-name inhibit-changing-match-data git-rebase-filename-regexp inhibit-read-only nil t string-match boundp file-accessible-directory-p file-name-directory require magit-git magit-expand-git-file-name 2 "\\`[a-z]:/\\(cygdrive/\\)?\\([a-z]\\)/\\(.*\\)" match-string ":/" 3 insert-file-contents] 7]) | |
| 39 | (byte-code "\301=\203 \302\303\304\"\210\301\207" [system-type windows-nt add-hook find-file-not-found-functions git-commit-file-not-found] 3) | |
| 40 | (defalias 'git-commit-setup #[0 "\306\307!\204\f \310\311!\204 \202 \310\311!\205 \311 \312\305\313 \210\314 \210+ \203< \315\316\n!\317Q BC\320\211 ,\321\320!\210+\312-\f\204G \304\322!\210\323\324\325\312\320$\210\323\326\327\312\320$\210\323\330\327\312\320$\210\310\331!\203~ .\332>\204~ \323\333\334\335\331\336!\"\312\320$\210\310\337!\203~ \337 \210\340/\341\342!\210\305\322!\210\343 \210\344\345!\203\225 \312%\212eb\210\346\347!\203\243 \350\322!\210)\351\352!\210\353\312!\207" [default-directory major-mode buffer-file-name git-commit-major-mode with-editor-mode git-commit-mode file-exists-p ".dir-locals.el" fboundp magit-toplevel nil hack-dir-local-variables hack-local-variables-apply "\\`" regexp-quote "\\'" t normal-mode 1 add-hook with-editor-finish-query-functions git-commit-finish-query-functions with-editor-pre-finish-hook git-commit-save-message with-editor-pre-cancel-hook magit-rev-parse (magit-sequencer-continue magit-sequencer-skip magit-am-continue magit-am-skip magit-rebase-continue magit-rebase-skip) with-editor-post-finish-hook apply-partially git-commit-run-post-finish-hook "HEAD" magit-wip-maybe-add-commit-hook git-commit-cancel-message make-local-variable log-edit-comment-ring-index git-commit-setup-font-lock boundp save-place looking-at "\\`\\(\\'\\|\n[^\n]\\)" open-line run-hooks git-commit-setup-hook set-buffer-modified-p auto-mode-alist with-editor-show-usage last-command with-editor-cancel-message] 6]) | |
| 41 | #@17 | |
| 42 | ||
| 43 | (fn PREVIOUS) | |
| 44 | (defalias 'git-commit-run-post-finish-hook #[257 "\2058 \30128 \302\303 \304\305!\"\306\307!\232\2033 \310\303 \"\203& \311\312!\210\202 \313\314\300\"\210\315\301\316\"\210\202 \210\317\300!0\207" [git-commit-post-finish-hook --cl-block-nil-- time-add current-time seconds-to-time 1 magit-rev-parse "HEAD" time-less-p sit-for 0.01 message "No commit created after 1 second. Not running %s." throw nil run-hooks] 5 (#$ . 14931)]) | |
| 45 | #@99 Non-nil if Git-Commit mode is enabled. | |
| 46 | Use the command `git-commit-mode' to change this variable. | |
| 47 | (defvar git-commit-mode nil (#$ . 15389)) | |
| 48 | (make-variable-buffer-local 'git-commit-mode) | |
| 49 | #@209 Auxiliary minor mode used when editing Git commit messages. | |
| 50 | This mode is only responsible for setting up some key bindings. | |
| 51 | Don't use it directly, instead enable `global-git-commit-mode'. | |
| 52 | ||
| 53 | (fn &optional ARG) | |
| 54 | (defalias 'git-commit-mode #[256 "\301 \302=\203 ?\202 \303!\304V\305\306\203 \307\202 \310\"\210\311\312!\203B \301 \2032 \211\301 \232\203B \313\314\315\203= \316\202> \317#\266\210\320 \210\207" [git-commit-mode current-message toggle prefix-numeric-value 0 run-hooks git-commit-mode-hook git-commit-mode-on-hook git-commit-mode-off-hook called-interactively-p any " in current buffer" message "Git-Commit mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 15582) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)]) | |
| 55 | (defvar git-commit-mode-hook nil) | |
| 56 | (byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \311\211%\210\303\306\312\313#\207" [git-commit-mode-map git-commit-mode-hook variable-documentation put "Hook run after entering or leaving `git-commit-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode git-commit-mode "" boundp nil permanent-local t] 6) | |
| 57 | #@40 Treat ChangeLog entries as paragraphs. | |
| 58 | (defalias 'git-commit-setup-changelog-support #[0 "\301\300!\210\302P\211\207" [paragraph-start make-local-variable "\\|\\*\\|("] 2 (#$ . 16813)]) | |
| 59 | #@185 Unconditionally turn on Auto Fill mode. | |
| 60 | If `git-commit-fill-column' is non-nil, and `fill-column' | |
| 61 | doesn't already have a buffer-local value, then set that | |
| 62 | to `git-commit-fill-column'. | |
| 63 | (defalias 'git-commit-turn-on-auto-fill #[0 "\247\203 \303\301!\204 \304\302!\210\305\306 \207" [git-commit-fill-column fill-column comment-auto-fill-only-comments local-variable-p make-local-variable nil turn-on-auto-fill] 2 (#$ . 17008)]) | |
| 64 | #@125 Unconditionally turn on Flyspell mode. | |
| 65 | Also prevent comments from being checked and | |
| 66 | finally check current non-comment text. | |
| 67 | (defalias 'git-commit-turn-on-flyspell #[0 "\302\303!\210\304 \210\305\306\307\310 \"\212db\210o\204\" \311!\203\" \312y\210\202 \311!\204+ \306y\210`\262)\313e\"\207" [flyspell-generic-check-word-predicate comment-start require flyspell turn-on-flyspell git-commit-flyspell-verify nil format "^\\(%s\\|$\\)" looking-at -1 flyspell-region] 5 (#$ . 17446)]) | |
| 68 | (defalias 'git-commit-flyspell-verify #[0 "\301 f\302HU?\207" [comment-start line-beginning-position 0] 3]) | |
| 69 | #@14 | |
| 70 | ||
| 71 | (fn FORCE) | |
| 72 | (defalias 'git-commit-finish-query-functions #[257 "\300\301\"\207" [run-hook-with-args-until-failure git-commit-finish-query-functions] 4 (#$ . 18048)]) | |
| 73 | #@219 Check for violations of certain basic style conventions. | |
| 74 | ||
| 75 | For each violation ask the user if she wants to proceed anyway. | |
| 76 | Option `git-commit-check-style-conventions' controls which | |
| 77 | conventions are checked. | |
| 78 | ||
| 79 | (fn FORCE) | |
| 80 | (defalias 'git-commit-check-style-conventions #[257 "\211\206A \212eb\210\301\302 \303\304#\210\305\306!\307\232\203 \304\202@ \310>\203/ \305\311!\307\232\204/ \312\313!\205@ \314>?\206@ \305\315!?\206@ \312\316!)\207" [git-commit-style-convention-checks re-search-forward git-commit-summary-regexp nil t match-string 1 "" overlong-summary-line 2 y-or-n-p "Summary line is too long. Commit anyway? " non-empty-second-line 3 "Second line is not empty. Commit anyway? "] 5 (#$ . 18223)]) | |
| 81 | (defalias 'git-commit-cancel-message #[0 "\301\302\303>\205 \304P!\207" [with-editor-pre-cancel-hook message "Commit canceled" git-commit-save-message ". Message saved to `log-edit-comment-ring'"] 4]) | |
| 82 | #@130 Cycle backward through message history, after saving current message. | |
| 83 | With a numeric prefix ARG, go back ARG comments. | |
| 84 | ||
| 85 | (fn ARG) | |
| 86 | (defalias 'git-commit-prev-message #[257 "\303 \203 \211\304V\203 \305\306!\"\214eb\210`\307\310\nP\311\312#\203) \313`\314Z]\202* d}\210\315!)\207" [log-edit-comment-ring log-edit-comment-ring-index comment-start git-commit-save-message 0 log-edit-new-comment-index ring-length re-search-forward "^" nil t 1 2 log-edit-previous-comment] 6 (#$ . 19144) "*p"]) | |
| 87 | #@132 Cycle forward through message history, after saving current message. | |
| 88 | With a numeric prefix ARG, go forward ARG comments. | |
| 89 | ||
| 90 | (fn ARG) | |
| 91 | (defalias 'git-commit-next-message #[257 "\300[!\207" [git-commit-prev-message] 3 (#$ . 19646) "*p"]) | |
| 92 | #@50 Save current message to `log-edit-comment-ring'. | |
| 93 | (defalias 'git-commit-save-message #[0 "\301 \211\205 \302\"?\205 \303\"\207" [log-edit-comment-ring git-commit-buffer-message ring-member ring-insert] 4 (#$ . 19886) nil]) | |
| 94 | (defalias 'git-commit-buffer-message #[0 "\301P\302ed\"\303\304!r\211q\210\305\306\307\310\311!\312\"\313$\216c\210eb\210\314\315P\316\317#\203/ \320 d|\210eb\210\321!\210db\210`Sf\322=\204D \322c\210\323 \262*\210\324\325\"?\205q \324\326\"\203a \327\330\317\211$\262\324\331\"\203p \327\330\317\211$\262\211\207" [comment-start "^" buffer-substring-no-properties generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 re-search-forward " -+ >8 -+$" nil t point-at-bol flush-lines 10 buffer-string string-match "\\`[ \n ]*\\'" "\\`\n\\{2,\\}" replace-match "\n" "\n\\{2,\\}\\'"] 9]) | |
| 95 | #@83 Insert a header acknowledging that you have looked at the commit. | |
| 96 | ||
| 97 | (fn NAME MAIL) | |
| 98 | (defalias 'git-commit-ack #[514 "\300\301#\207" [git-commit-insert-header "Acked-by"] 6 (#$ . 20784) (git-commit-self-ident)]) | |
| 99 | #@78 Insert a header to signal that you have modified the commit. | |
| 100 | ||
| 101 | (fn NAME MAIL) | |
| 102 | (defalias 'git-commit-modified #[514 "\300\301#\207" [git-commit-insert-header "Modified-by"] 6 (#$ . 21001) (git-commit-self-ident)]) | |
| 103 | #@82 Insert a header acknowledging that you have reviewed the commit. | |
| 104 | ||
| 105 | (fn NAME MAIL) | |
| 106 | (defalias 'git-commit-review #[514 "\300\301#\207" [git-commit-insert-header "Reviewed-by"] 6 (#$ . 21221) (git-commit-self-ident)]) | |
| 107 | #@57 Insert a header to sign off the commit. | |
| 108 | ||
| 109 | (fn NAME MAIL) | |
| 110 | (defalias 'git-commit-signoff #[514 "\300\301#\207" [git-commit-insert-header "Signed-off-by"] 6 (#$ . 21443) (git-commit-self-ident)]) | |
| 111 | #@80 Insert a header acknowledging that you have tested the commit. | |
| 112 | ||
| 113 | (fn NAME MAIL) | |
| 114 | (defalias 'git-commit-test #[514 "\300\301#\207" [git-commit-insert-header "Tested-by"] 6 (#$ . 21643) (git-commit-self-ident)]) | |
| 115 | #@77 Insert a header mentioning someone who might be interested. | |
| 116 | ||
| 117 | (fn NAME MAIL) | |
| 118 | (defalias 'git-commit-cc #[514 "\300\301#\207" [git-commit-insert-header "Cc"] 6 (#$ . 21859) (git-commit-read-ident)]) | |
| 119 | #@79 Insert a header mentioning the person who reported the issue. | |
| 120 | ||
| 121 | (fn NAME MAIL) | |
| 122 | (defalias 'git-commit-reported #[514 "\300\301#\207" [git-commit-insert-header "Reported-by"] 6 (#$ . 22063) (git-commit-read-ident)]) | |
| 123 | #@81 Insert a header mentioning the person who suggested the change. | |
| 124 | ||
| 125 | (fn NAME MAIL) | |
| 126 | (defalias 'git-commit-suggested #[514 "\300\301#\207" [git-commit-insert-header "Suggested-by"] 6 (#$ . 22284) (git-commit-read-ident)]) | |
| 127 | (defalias 'git-commit-self-ident #[0 "\301\302!\206( \301\303!\206( \3041 \305\306\307\310#@0\202 \210\202! \206( \206( \311\312!\301\313!\206R \301\314!\206R \301\315!\206R \3161H \305\306\307\317#@0\202L \210\202O \206R \311\320!D\207" [user-full-name getenv "GIT_AUTHOR_NAME" "GIT_COMMITTER_NAME" (error) process-lines "git" "config" "user.name" read-string "Name: " "GIT_AUTHOR_EMAIL" "GIT_COMMITTER_EMAIL" "EMAIL" (error) "user.email" "Email: "] 5]) | |
| 128 | (defalias 'git-commit-read-ident #[0 "\300\301!\300\302!D\207" [read-string "Name: " "Email: "] 3]) | |
| 129 | #@26 | |
| 130 | ||
| 131 | (fn HEADER NAME EMAIL) | |
| 132 | (defalias 'git-commit-insert-header #[771 "\301\302$\262\212db\210\303\304\305\306#\203) \305\210\307\261\210\305f\307U\204B \307c\210\202B \303\310P\305\306#\204) \311\312\305\"\204= \307c\210\307\261\210m\206J \305f\307U?\205P \307c)\207" [comment-start format "%s: %s <%s>" re-search-backward "^[-a-zA-Z]+: [^<]+? <[^>]+>" nil t 10 "^" looking-back "\n\n"] 8 (#$ . 23067)]) | |
| 133 | (defalias 'git-commit-summary-regexp #[0 "\302\303\"\302\304 \"\302\305\"Q\207" [comment-start git-commit-summary-max-length format "\\`\\(?:^\\(?:\\s-*\\|%s.*\\)\n\\)*" "\\(.\\{0,%d\\}\\)\\(.*\\)" "\\(?:\n%s\\|\n\\(.+\\)\\)?"] 5]) | |
| 134 | #@96 Identify the multiline summary-regexp construct. | |
| 135 | Added to `font-lock-extend-region-functions'. | |
| 136 | (defalias 'git-commit-extend-region-summary-line #[0 "\212\302 \303\304\305\306\307!\310\"\311$\216eb\210\312\313 !\205@ \304\224\304\225W\203) W\2045 W\205> W\205> ^ ]\211\266\202)\262)\207" [font-lock-beg font-lock-end match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 looking-at git-commit-summary-regexp] 7 (#$ . 23719)]) | |
| 137 | (defvar git-commit--branch-name-regexp nil nil) | |
| 138 | (make-variable-buffer-local 'git-commit--branch-name-regexp) | |
| 139 | (defconst git-commit-comment-headings '("Changes to be committed:" "Untracked files:" "Changed but not updated:" "Changes not staged for commit:" "Unmerged paths:" "Author:" "Date:")) | |
| 140 | (defconst git-commit-font-lock-keywords-1 '((eval \` ((\, (format "^\\(%s:\\)\\( .*\\)" (regexp-opt git-commit-known-pseudo-headers))) (1 'git-commit-known-pseudo-header) (2 'git-commit-pseudo-header))) ("^[-a-zA-Z]+: [^<]+? <[^>]+>" (0 'git-commit-pseudo-header)) (eval \` ((\, (git-commit-summary-regexp)) (1 'git-commit-summary))) ("\\[.+?\\]" (0 'git-commit-note t)) (eval \` ((\, (git-commit-summary-regexp)) (2 'git-commit-overlong-summary t t) (3 'git-commit-nonempty-second-line t t))))) | |
| 141 | (defconst git-commit-font-lock-keywords-2 (append git-commit-font-lock-keywords-1 '((eval \` ((\, (format "^%s.*" comment-start)) (0 'font-lock-comment-face))) (eval \` ((\, (format "^%s On branch \\(.*\\)" comment-start)) (1 'git-commit-comment-branch-local t))) (eval \` ((\, (format "^%s \\(HEAD\\) detached at" comment-start)) (1 'git-commit-comment-detached t))) (eval \` ((\, (format "^%s %s" comment-start (regexp-opt git-commit-comment-headings t))) (1 'git-commit-comment-heading t))) (eval \` ((\, (format "^%s \\(?:\\([^:\n]+\\):\\s-+\\)?\\(.*\\)" comment-start)) (1 'git-commit-comment-action t t) (2 'git-commit-comment-file t)))))) | |
| 142 | (defconst git-commit-font-lock-keywords-3 (append git-commit-font-lock-keywords-2 '((eval \` ((\, (format "^%s Your branch is \\(?:ahead\\|behind\\) of '%s' by \\([0-9]*\\)" comment-start git-commit--branch-name-regexp)) (1 'git-commit-comment-branch-local t) (2 'git-commit-comment-branch-remote t) (3 'bold t))) (eval \` ((\, (format "^%s Your branch \\(?:is up-to-date with\\|and\\) '%s'" comment-start git-commit--branch-name-regexp)) (1 'git-commit-comment-branch-local t) (2 'git-commit-comment-branch-remote t))) (eval \` ((\, (format "^%s and have \\([0-9]*\\) and \\([0-9]*\\) commits each" comment-start)) (1 'bold t) (2 'bold t)))))) | |
| 143 | #@41 Font-Lock keywords for Git-Commit mode. | |
| 144 | (defvar git-commit-font-lock-keywords git-commit-font-lock-keywords-2 (#$ . 26284)) | |
| 145 | (defalias 'git-commit-setup-font-lock #[0 "\306\307 !\203 \310\311!\312#\210\310\313\312#\210\310\314\312#\210\310\315\312#\210\310\316\312#\210\317!\266\320\300!\210\3211? \322\323\324\325#@0\202C \210\202F \206G \326\320\301!\210\327\330\"\320\302!\210\331\320\303!\210\332\320\305!\210\333\334!\203\203 \335\f!\203\203 \336\337!\210\327\340\341\342\343 \344#\341\342\345 \344##\202\204 \346\320\347!\210\350'\351\352\353\350\211$\210\354\332-\350#\207" [comment-start comment-start-skip comment-end-skip comment-use-syntax default-directory git-commit--branch-name-regexp make-syntax-table syntax-table modify-syntax-entry string-to-char "." 35 34 39 96 set-syntax-table make-local-variable (error) process-lines "git" "config" "core.commentchar" "#" format "^%s+[ ]*" "\n" nil featurep magit-git file-accessible-directory-p require magit "\\(\\(?:%s\\)\\|\\)\\(\\(?:%s\\)\\|\\)" mapconcat identity magit-list-local-branch-names "\\|" magit-list-remote-branch-names "\\([^']*\\)" font-lock-multiline t add-hook font-lock-extend-region-functions git-commit-extend-region-summary-line font-lock-add-keywords git-commit-font-lock-keywords] 7]) | |
| 146 | (defalias 'git-commit-propertize-diff #[0 "\303\304!\210\212eb\210\305\306\307\310#\205 \311 \210p\312\313!r\211q\210\314\315\316\317\320!\321\"\322$\216rq\210\323`d\"`d|\210)c\210\307\304 \210)\307\211\324\325!\203L \325 \210\202O \326 \210*\307e\327\330\"\211\262\203l \331\332\333\330\"$\210\262\202R \331d\332\333\330\"$\266\334 *\262c\262)\207" [diff-default-read-only font-lock-support-mode font-lock-verbose require diff-mode re-search-forward "^diff --git" nil t beginning-of-line generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 buffer-substring-no-properties fboundp font-lock-ensure font-lock-fontify-buffer next-single-property-change face put-text-property font-lock-face get-text-property buffer-string] 11]) | |
| 147 | (defvar git-commit-elisp-text-mode-hook nil) | |
| 148 | (byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [git-commit-elisp-text-mode-hook variable-documentation put "Hook run after entering ElText mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp git-commit-elisp-text-mode-map definition-name git-commit-elisp-text-mode] 4) | |
| 149 | (defvar git-commit-elisp-text-mode-map (make-sparse-keymap)) | |
| 150 | (byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [git-commit-elisp-text-mode-abbrev-table git-commit-elisp-text-mode-map variable-documentation put purecopy "Keymap for `git-commit-elisp-text-mode'." boundp git-commit-elisp-text-mode-syntax-table definition-name git-commit-elisp-text-mode (lambda (#1=#:def-tmp-var) (defvar git-commit-elisp-text-mode-syntax-table #1#)) make-syntax-table "Syntax table for `git-commit-elisp-text-mode'." (lambda (#1#) (defvar git-commit-elisp-text-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `git-commit-elisp-text-mode'." derived-mode-parent text-mode] 5) | |
| 151 | #@523 Major mode for editing commit messages of elisp projects. | |
| 152 | This is intended for use as `git-commit-major-mode' for projects | |
| 153 | that expect `symbols' to look like this. I.e. like they look in | |
| 154 | Elisp doc-strings, including this one. Unlike in doc-strings, | |
| 155 | "strings" also look different than the other text. | |
| 156 | ||
| 157 | In addition to any hooks its parent mode `text-mode' might have run, | |
| 158 | this mode runs the hook `git-commit-elisp-text-mode-hook', as the final or penultimate step | |
| 159 | during initialization. | |
| 160 | ||
| 161 | \{git-commit-elisp-text-mode-map} | |
| 162 | (defalias 'git-commit-elisp-text-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324 \325\"\204R =\204R \326 \325 C#\210\327 !\210\330\f!\210 \331 )\332\333!\207" [delay-mode-hooks major-mode mode-name git-commit-elisp-text-mode-map git-commit-elisp-text-mode-syntax-table git-commit-elisp-text-mode-abbrev-table make-local-variable t text-mode git-commit-elisp-text-mode "ElText" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table (git-commit-elisp-text-mode-keywords) run-mode-hooks git-commit-elisp-text-mode-hook local-abbrev-table font-lock-defaults] 5 (#$ . 29739) nil]) | |
| 163 | (defvar git-commit-elisp-text-mode-keywords (byte-code "\301\302Q\303B\304B\207" [lisp-mode-symbol-regexp "[`‘]\\(\\(?:\\sw\\|\\s_\\|\\\\.\\)" "\\)['’]" ((1 font-lock-constant-face prepend)) (("\"[^\"]*\"" (0 font-lock-string-face prepend)))] 3)) | |
| 164 | (provide 'git-commit) | |
