Silence byte compiler. Added skeleton Makefile.

This commit is contained in:
Marius Vollmer 2008-08-13 06:14:53 +03:00
parent e8cc5fdf1b
commit 555377edcc
2 changed files with 11 additions and 2 deletions

1
Makefile.am Normal file
View file

@ -0,0 +1 @@
lisp_DATA = magit.el magit.elc

View file

@ -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)