Lines Matching +defs:before +defs:string
42 (defvar tutorial--point-before-chkeys 0
43 "Point before display of key changes.")
44 (make-variable-buffer-local 'tutorial--point-before-chkeys)
151 (if (string= where "")
158 (if (string-equal "the menus" where)
207 (string< (symbol-name cy)
357 (when (string= key-txt explain-key-desc)
375 (if (string= "" where)
429 ;; described in the doc string.
442 (string= (substring where 0 (length "<menu-bar>"))
484 ((and (boundp 'viper-mode-string)
515 (cond ((string= "ESC" desc) "<ESC>")
516 ((string= "RET" desc) "<Return>")
517 ((string= "DEL" desc) "<Delback>")
545 (if (boundp 'viper-mode-string) (require 'cus-edit))
547 (if (or changed-keys (boundp 'viper-mode-string))
548 (let ((head (get-lang-string tutorial--lang 'tut-chgdhead))
549 (head2 (get-lang-string tutorial--lang 'tut-chgdhead2)))
551 (goto-char tutorial--point-before-chkeys)
557 (add-text-properties tutorial--point-before-chkeys (point)
567 (setq changed-key (assoc (match-string 1) changed-keys-alist))
575 s1 s2 help-string)
576 (unless (string= where "Same key")
577 (when (string= where "")
580 s1 (get-lang-string tutorial--lang 'tut-chgdkey)
581 s2 (get-lang-string tutorial--lang 'tut-chgdkey2)
582 help-string (and s1 s2 (format s1 desc where)))
586 (if help-string
588 ;; Put help string in the tooltip.
590 'help-echo help-string)
591 ;; Put help string in the buffer.
600 (insert "** " help-string " [")
622 (string= ext ""))
647 This saves the part of the tutorial before and after the area
655 (error-message-string err)))))
672 (error-message-string err)))))
692 ;; (delete-region tutorial--point-before-chkeys
699 (insert (number-to-string tut-point)
701 (number-to-string (marker-position
702 tutorial--point-before-chkeys))
709 (error-message-string err))))
772 ;; Try to display the tutorial buffer before asking to revert it.
821 (string-to-number
825 (setq tutorial--point-before-chkeys
826 (string-to-number
831 (goto-char tutorial--point-before-chkeys)
832 (setq tutorial--point-before-chkeys (point-marker)))
835 (setq tutorial--point-before-chkeys (point-marker)))
909 string ids and values that are the language specific strings.
911 See `get-lang-string' for more information.")
913 (defun get-lang-string (lang stringid &optional no-eng-fallback)
914 "Get a language specific string for Emacs.
915 In certain places Emacs can replace a string shown to the user with
916 a language specific string. This function retrieves such strings.
920 is a symbol that specifies the string to retrieve.
922 If no string is found for STRINGID in the chosen language then
923 the English string is returned unless NO-ENG-FALLBACK is non-nil.
929 (found-string))
933 (setq found-string (cdr entry)))))
935 (unless (or found-string
937 (setq found-string (get-lang-string "English" stringid t)))
938 found-string))
940 ;;(get-lang-string "English" 'tut-chgdkey)