From 94318c8a1f10a32eed7dc58fe03c09ff0daccd97 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Mon, 27 Nov 2006 13:52:27 +0000 Subject: [PATCH] (describe-minor-mode-completion-table-for-indicator, lookup-minor-mode-from-indicator): "?\ " -> "?\s". --- lisp/help.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/help.el b/lisp/help.el index 08899d61415..8c0f92f48ff 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -887,7 +887,7 @@ appeared on the mode-line." (cond ((= 0 (length i)) nil) - ((eq (aref i 0) ?\ ) + ((eq (aref i 0) ?\s) (substring i 1)) (t i)))) @@ -909,7 +909,7 @@ is currently activated with completion." "Return a minor mode symbol from its indicator on the modeline." ;; remove first space if existed (if (and (< 0 (length indicator)) - (eq (aref indicator 0) ?\ )) + (eq (aref indicator 0) ?\s)) (setq indicator (substring indicator 1))) (let ((minor-modes minor-mode-alist) result) @@ -920,7 +920,7 @@ is currently activated with completion." ;; remove first space if existed (if (and (stringp anindicator) (> (length anindicator) 0) - (eq (aref anindicator 0) ?\ )) + (eq (aref anindicator 0) ?\s)) (setq anindicator (substring anindicator 1))) (if (equal indicator anindicator) (setq result minor-mode -- 2.39.2