git.el: Use integer instead of character constants in case statement.
This is for compatibility with XEmacs. Reported by Vassili Karpov. Signed-off-by: Alexandre Julliard <julliard@winehq.org>
Alexandre Julliard committed
Feb 7, 2009 at 14:01 UTC
6c4f70d5b2fb8f9275ca85e0927f00b8bc892819
1 file changed
+15
-15
contrib/emacs/git.el
+15
-15
@@ -571,29 +571,29 @@ Each entry is a cons of (SHORT-NAME . FULL-NAME)."
571
(let* ((old-type (lsh (or old-perm 0) -9))
572
(new-type (lsh (or new-perm 0) -9))
573
(str (case new-type
574
- (?\100 ;; file
574
+ (64 ;; file
575
(case old-type
576
- (?\100 nil)
577
- (?\120 " (type change symlink -> file)")
578
- (?\160 " (type change subproject -> file)")))
579
- (?\120 ;; symlink
576
+ (64 nil)
577
+ (80 " (type change symlink -> file)")
578
+ (112 " (type change subproject -> file)")))
579
+ (80 ;; symlink
580
(case old-type
581
- (?\100 " (type change file -> symlink)")
582
- (?\160 " (type change subproject -> symlink)")
581
+ (64 " (type change file -> symlink)")
582
+ (112 " (type change subproject -> symlink)")
583
(t " (symlink)")))
584
- (?\160 ;; subproject
584
+ (112 ;; subproject
585
(case old-type
586
- (?\100 " (type change file -> subproject)")
587
- (?\120 " (type change symlink -> subproject)")
586
+ (64 " (type change file -> subproject)")
587
+ (80 " (type change symlink -> subproject)")
588
(t " (subproject)")))
589
- (?\110 nil) ;; directory (internal, not a real git state)
590
- (?\000 ;; deleted or unknown
589
+ (72 nil) ;; directory (internal, not a real git state)
590
+ (0 ;; deleted or unknown
591
(case old-type
592
- (?\120 " (symlink)")
593
- (?\160 " (subproject)")))
592
+ (80 " (symlink)")
593
+ (112 " (subproject)")))
594
(t (format " (unknown type %o)" new-type)))))
595
(cond (str (propertize str 'face 'git-status-face))
596
- ((eq new-type ?\110) "/")
596
+ ((eq new-type 72) "/")
597
(t ""))))
598
599
(defun git-rename-as-string (info)