{"thread":{"id":"17334","subject":"[PATCH v2] Change octal literals to be XEmacs friendly","startedAt":"2009-01-24T01:52:31Z","lastAt":"2009-01-24T01:52:31Z","messageCount":1,"participants":["malc"],"isPatch":true,"patchVersion":2,"patchTotal":null},"messages":[{"id":"101720","messageId":"Pine.LNX.4.64.0901240451570.21310@linmac.oyster.ru","threadId":"17334","inReplyTo":null,"subject":"[PATCH v2] Change octal literals to be XEmacs friendly","fromName":"malc","fromEmail":"av1474@comtv.ru","sentAt":"2009-01-24T01:52:31Z","receivedAt":"2009-01-24T01:52:31Z","isPatch":true,"sender":{"key":"av1474@comtv.ru","avatar":null},"body":"\nThe type-of ?\\octal in XEmacs is character while in FSF Emacs it is\ninteger. Case expression using this syntax will not work correctly on\nXEmacs. #ooctal syntax on the other hand produces integers everywhere.\n\nSigned-off-by: Vassili Karpov <av1474@comtv.ru>\n---\n contrib/emacs/git.el |   30 +++++++++++++++---------------\n 1 files changed, 15 insertions(+), 15 deletions(-)\n\ndiff --git a/contrib/emacs/git.el b/contrib/emacs/git.el\nindex 09e8bae..715580a 100644\n--- a/contrib/emacs/git.el\n+++ b/contrib/emacs/git.el\n@@ -562,29 +562,29 @@ the process output as a string, or nil if the git command failed.\"\n   (let* ((old-type (lsh (or old-perm 0) -9))\n \t (new-type (lsh (or new-perm 0) -9))\n \t (str (case new-type\n-\t\t(?\\100  ;; file\n+\t\t(#o100  ;; file\n \t\t (case old-type\n-\t\t   (?\\100 nil)\n-\t\t   (?\\120 \"   (type change symlink -> file)\")\n-\t\t   (?\\160 \"   (type change subproject -> file)\")))\n-\t\t (?\\120  ;; symlink\n+\t\t   (#o100 nil)\n+\t\t   (#o120 \"   (type change symlink -> file)\")\n+\t\t   (#o160 \"   (type change subproject -> file)\")))\n+\t\t (#o120  ;; symlink\n \t\t  (case old-type\n-\t\t    (?\\100 \"   (type change file -> symlink)\")\n-\t\t    (?\\160 \"   (type change subproject -> symlink)\")\n+\t\t    (#o100 \"   (type change file -> symlink)\")\n+\t\t    (#o160 \"   (type change subproject -> symlink)\")\n \t\t    (t \"   (symlink)\")))\n-\t\t  (?\\160  ;; subproject\n+\t\t  (#o160  ;; subproject\n \t\t   (case old-type\n-\t\t     (?\\100 \"   (type change file -> subproject)\")\n-\t\t     (?\\120 \"   (type change symlink -> subproject)\")\n+\t\t     (#o100 \"   (type change file -> subproject)\")\n+\t\t     (#o120 \"   (type change symlink -> subproject)\")\n \t\t     (t \"   (subproject)\")))\n-                  (?\\110 nil)  ;; directory (internal, not a real git state)\n-\t\t  (?\\000  ;; deleted or unknown\n+                  (#o110 nil)  ;; directory (internal, not a real git state)\n+\t\t  (#o000  ;; deleted or unknown\n \t\t   (case old-type\n-\t\t     (?\\120 \"   (symlink)\")\n-\t\t     (?\\160 \"   (subproject)\")))\n+\t\t     (#o120 \"   (symlink)\")\n+\t\t     (#o160 \"   (subproject)\")))\n \t\t  (t (format \"   (unknown type %o)\" new-type)))))\n     (cond (str (propertize str 'face 'git-status-face))\n-          ((eq new-type ?\\110) \"/\")\n+          ((eq new-type #o110) \"/\")\n           (t \"\"))))\n \n (defun git-rename-as-string (info)\n-- \n1.6.0.2.GIT\n\n\n-- \nmailto:av1474@comtv.ru\n"}]}