Miroirs/slackbuilds
1
0
Fork 0
mirror of https://codeberg.org/gwh/slackbuilds.git synced 2024-11-16 19:51:19 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Don't hide all diffs by default.

Browse source 
* magit.el (magit-hide-diffs): New variable.
(magit-wash-diff): Use it for the default hiddenness of diffs.
(magit-insert-unstaged-changes, magit-insert-staged-changes,
(magit-insert-unrewritten-changes): Bind it to t.
This commit is contained in:
Marius Vollmer 2008-09-08 23:31:12 +03:00
parent 4f8dd6f841
commit 0efe4c71b5
1 changed files with 18 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
magit.el
View file

@ -852,9 +852,13 @@ Please see the manual for a complete description of Magit.
t)
nil))
(defvar magit-hide-diffs nil)
(defun magit-wash-diff ()
(cond ((looking-at "^diff")
(magit-with-section (magit-current-line) (:type 'diff :hidden t)
(magit-with-section
(magit-current-line)
(:type 'diff :hidden magit-hide-diffs)
(let ((file (magit-diff-line-file))
(end (save-excursion
(forward-line) ;; skip over "diff" line
@ -979,14 +983,16 @@ Please see the manual for a complete description of Magit.
target))))
(defun magit-insert-unstaged-changes (title)
(magit-insert-section 'unstaged title 'magit-wash-diffs
magit-collapse-threshold
"sh" "-c" "git ls-files -t --others --exclude-standard; git diff"))
(let ((magit-hide-diffs t))
(magit-insert-section 'unstaged title 'magit-wash-diffs
magit-collapse-threshold
"sh" "-c" "git ls-files -t --others --exclude-standard; git diff")))
(defun magit-insert-staged-changes ()
(magit-insert-section 'staged "Staged changes:" 'magit-wash-diffs
magit-collapse-threshold
"git" "diff" "--cached"))
(let ((magit-hide-diffs t))
(magit-insert-section 'staged "Staged changes:" 'magit-wash-diffs
magit-collapse-threshold
"git" "diff" "--cached")))
;;; Logs and Commits
@ -1304,10 +1310,11 @@ Please see the manual for a complete description of Magit.
(let* ((info (magit-read-rewrite-info))
(orig (cadr (assq 'orig info))))
(when orig
(magit-insert-section 'unrewritten
"Unrewritten changes"
'magit-wash-diff nil
"git" "diff" "-R" orig))))
(let ((magit-hide-diffs t))
(magit-insert-section 'unrewritten
"Unrewritten changes"
'magit-wash-diffs nil
"git" "diff" "-R" orig)))))
(defun magit-rewrite-start (from &optional onto)
(interactive (list (magit-read-rev "Rewrite from" (magit-default-rev))))