procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(describe-minor-mode-completion-table-for-indicator,

Browse source 
lookup-minor-mode-from-indicator): "?\ " -> "?\s".
This commit is contained in:
Juanma Barranquero 2006-11-27 13:52:27 +00:00
parent 5949f09808
commit 94318c8a1f
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/help.el
View file

@ -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