Silence byte compiler. Added skeleton Makefile.
This commit is contained in:
parent
e8cc5fdf1b
commit
555377edcc
2 changed files with 11 additions and 2 deletions
1
Makefile.am
Normal file
1
Makefile.am
Normal file
|
@ -0,0 +1 @@
|
||||||
|
lisp_DATA = magit.el magit.elc
|
12
magit.el
12
magit.el
|
@ -39,6 +39,9 @@
|
||||||
;; - Indicate active command in modeline. Show progress in message area?
|
;; - Indicate active command in modeline. Show progress in message area?
|
||||||
;; - Detect and handle renames and copies.
|
;; - Detect and handle renames and copies.
|
||||||
|
|
||||||
|
(require 'cl)
|
||||||
|
(require 'parse-time)
|
||||||
|
|
||||||
;;; Utilities
|
;;; Utilities
|
||||||
|
|
||||||
(defun magit-shell (cmd &rest args)
|
(defun magit-shell (cmd &rest args)
|
||||||
|
@ -240,6 +243,9 @@
|
||||||
(put 'magit-mode 'mode-class 'special)
|
(put 'magit-mode 'mode-class 'special)
|
||||||
(put 'magit-marked-object 'permanent-local t)
|
(put 'magit-marked-object 'permanent-local t)
|
||||||
|
|
||||||
|
(defvar magit-marked-object nil)
|
||||||
|
(make-variable-buffer-local 'magit-marked-object)
|
||||||
|
|
||||||
(defun magit-mode ()
|
(defun magit-mode ()
|
||||||
;;; XXX - the formatting is all screwed up because of the \\[...]
|
;;; XXX - the formatting is all screwed up because of the \\[...]
|
||||||
;;; constructs.
|
;;; constructs.
|
||||||
|
@ -322,7 +328,6 @@ pushed.
|
||||||
|
|
||||||
\\{magit-mode-map}"
|
\\{magit-mode-map}"
|
||||||
(kill-all-local-variables)
|
(kill-all-local-variables)
|
||||||
(make-variable-buffer-local 'magit-marked-object)
|
|
||||||
(setq buffer-read-only t)
|
(setq buffer-read-only t)
|
||||||
(setq major-mode 'magit-mode
|
(setq major-mode 'magit-mode
|
||||||
mode-name "Magit")
|
mode-name "Magit")
|
||||||
|
@ -665,7 +670,8 @@ pushed.
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(flush-lines "^#")
|
(flush-lines "^#")
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(replace-regexp "[ \t\n]*\\'" "\n")))
|
(if (re-search-forward "[ \t\n]*\\'" nil t)
|
||||||
|
(replace-match "\n" nil nil))))
|
||||||
|
|
||||||
(defun magit-log-edit-commit ()
|
(defun magit-log-edit-commit ()
|
||||||
(interactive)
|
(interactive)
|
||||||
|
@ -950,3 +956,5 @@ the current line into your working tree.
|
||||||
(interactive)
|
(interactive)
|
||||||
(let ((info (get-char-property (point) 'magit-info)))
|
(let ((info (get-char-property (point) 'magit-info)))
|
||||||
(message "Thing: %s" info)))
|
(message "Thing: %s" info)))
|
||||||
|
|
||||||
|
(provide 'magit)
|
||||||
|
|
Loading…
Reference in a new issue