mirrors/git
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

git.el: Use integer instead of character constants in case statement.

Browse Source 
This is for compatibility with XEmacs. Reported by Vassili Karpov.

Signed-off-by: Alexandre Julliard <julliard@winehq.org>
This commit is contained in:
Alexandre Julliard
2009-02-07 14:01:26 +01:00
parent efd49f50fc
commit 6c4f70d5b2
1 changed files with 15 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
contrib/emacs/git.el
View File

@ -571,29 +571,29 @@ Each entry is a cons of (SHORT-NAME . FULL-NAME)."
(let* ((old-type (lsh (or old-perm 0) -9)) (let* ((old-type (lsh (or old-perm 0) -9))
(new-type (lsh (or new-perm 0) -9)) (new-type (lsh (or new-perm 0) -9))
(str (case new-type (str (case new-type
(?\100 ;; file (64 ;; file
(case old-type (case old-type
(?\100 nil) (64 nil)
(?\120 " (type change symlink -> file)") (80 " (type change symlink -> file)")
(?\160 " (type change subproject -> file)"))) (112 " (type change subproject -> file)")))
(?\120 ;; symlink (80 ;; symlink
(case old-type (case old-type
(?\100 " (type change file -> symlink)") (64 " (type change file -> symlink)")
(?\160 " (type change subproject -> symlink)") (112 " (type change subproject -> symlink)")
(t " (symlink)"))) (t " (symlink)")))
(?\160 ;; subproject (112 ;; subproject
(case old-type (case old-type
(?\100 " (type change file -> subproject)") (64 " (type change file -> subproject)")
(?\120 " (type change symlink -> subproject)") (80 " (type change symlink -> subproject)")
(t " (subproject)"))) (t " (subproject)")))
(?\110 nil) ;; directory (internal, not a real git state) (72 nil) ;; directory (internal, not a real git state)
(?\000 ;; deleted or unknown (0 ;; deleted or unknown
(case old-type (case old-type
(?\120 " (symlink)") (80 " (symlink)")
(?\160 " (subproject)"))) (112 " (subproject)")))
(t (format " (unknown type %o)" new-type))))) (t (format " (unknown type %o)" new-type)))))
(cond (str (propertize str 'face 'git-status-face)) (cond (str (propertize str 'face 'git-status-face))
((eq new-type ?\110) "/") ((eq new-type 72) "/")
(t "")))) (t ""))))
(defun git-rename-as-string (info) (defun git-rename-as-string (info)