gwh/slackbuilds
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Clean up types and titles of sections.

Browse source 
* magit.el (magit-with-section): Check that args is a list before
accessing its car.
(magit-insert-section): Set the title of the section from the real
title, and the txpe from the real type.
This commit is contained in:
Marius Vollmer 2009-01-24 20:56:42 +02:00
parent 0ce0a2524f
commit 60f09e0615
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
magit.el
View file

@ -412,7 +412,8 @@ Many Magit faces inherit from this one by default."
(defmacro magit-with-section (title args &rest body)
(declare (indent 2))
(let ((s (gensym)))
`(let* ((,s (magit-new-section ,title ,@(if (keywordp (car args))
`(let* ((,s (magit-new-section ,title ,@(if (and (listp args)
(keywordp (car args)))
args
`(:type ,args))))
(magit-top-section ,s))
@ -494,7 +495,7 @@ Many Magit faces inherit from this one by default."
(defun magit-insert-section (type title washer cmd &rest args)
(let* ((body-beg nil)
(section
(magit-with-section type nil
(magit-with-section title type
(if title
(insert (propertize title 'face 'magit-section-title) "\n"))
(setq body-beg (point))