aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/help.el6
1 files 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."
887 (cond 887 (cond
888 ((= 0 (length i)) 888 ((= 0 (length i))
889 nil) 889 nil)
890 ((eq (aref i 0) ?\ ) 890 ((eq (aref i 0) ?\s)
891 (substring i 1)) 891 (substring i 1))
892 (t 892 (t
893 i)))) 893 i))))
@@ -909,7 +909,7 @@ is currently activated with completion."
909 "Return a minor mode symbol from its indicator on the modeline." 909 "Return a minor mode symbol from its indicator on the modeline."
910 ;; remove first space if existed 910 ;; remove first space if existed
911 (if (and (< 0 (length indicator)) 911 (if (and (< 0 (length indicator))
912 (eq (aref indicator 0) ?\ )) 912 (eq (aref indicator 0) ?\s))
913 (setq indicator (substring indicator 1))) 913 (setq indicator (substring indicator 1)))
914 (let ((minor-modes minor-mode-alist) 914 (let ((minor-modes minor-mode-alist)
915 result) 915 result)
@@ -920,7 +920,7 @@ is currently activated with completion."
920 ;; remove first space if existed 920 ;; remove first space if existed
921 (if (and (stringp anindicator) 921 (if (and (stringp anindicator)
922 (> (length anindicator) 0) 922 (> (length anindicator) 0)
923 (eq (aref anindicator 0) ?\ )) 923 (eq (aref anindicator 0) ?\s))
924 (setq anindicator (substring anindicator 1))) 924 (setq anindicator (substring anindicator 1)))
925 (if (equal indicator anindicator) 925 (if (equal indicator anindicator)
926 (setq result minor-mode 926 (setq result minor-mode