Lines Matching +defs:table +defs:string
119 '((command-string phrase-string*)*)
121 Each phrase-string is concatenated onto the command-string to form a
126 :type '(repeat (list (string :tag "Command String")
128 (string :tag "Phrase String"))))
137 (defvar Man-page-mode-string)
229 :type '(repeat (cons (string :tag "Bogus Section")
230 (string :tag "Real Section")))
236 :type '(repeat string)
270 (if (and (string-match "-solaris2\\." system-configuration)
271 (not (string-match "-solaris2\\.[123435]$" system-configuration)))
332 "Switches passed to the man command, as a single string.
338 (if (string-match "-solaris[0-9.]*$" system-configuration)
358 (make-variable-buffer-local 'Man-page-mode-string)
367 (setq-default Man-page-mode-string "1 of 1")
395 (defvar man-mode-syntax-table
396 (let ((table (copy-syntax-table (standard-syntax-table))))
397 (modify-syntax-entry ?. "w" table)
398 (modify-syntax-entry ?_ "w" table)
399 (modify-syntax-entry ?: "w" table) ; for PDL::Primitive in Perl man pages
400 table)
401 "Syntax table used in Man mode buffers.")
436 (let ((target (button-get button 'Man-target-string)))
452 (let ((w (button-get button 'Man-target-string)))
461 (button-get button 'Man-target-string))))
535 (defsubst Man-make-page-mode-string ()
548 ((string-match "%s" manual-program) "")
570 (defun Man-translate-cleanup (string)
572 (when (stringp string)
574 (if (string-match "^[ \t\f\r\n]*\\(.+[^ \t\f\r\n]\\)" string)
575 (setq string (match-string 1 string)))
577 (setq string (replace-regexp-in-string "[\t\r\n]" " " string))
578 (setq string (replace-regexp-in-string " +" " " string))
579 string))
592 ((string-match (concat "^" Man-reference-regexp "$") ref)
593 (setq name (match-string 1 ref)
594 section (match-string 2 ref)))
596 ((string-match (concat "^\\(" Man-section-regexp
598 (setq name (match-string 2 ref)
599 section (match-string 1 ref))))
600 (if (string= name "")
610 (if (not (string= s1 section)) nil
666 (if (string-match "[._]+$" word)
669 (if (string-match "^*" word)
676 (format "(%s)" (match-string-no-properties 1)))))))
703 (input (read-string
705 (if (string= default-entry "")
709 (if (string= input "")
724 (string= man-args ""))
777 (setenv "COLUMNS" (number-to-string
858 (setq str (string-as-multibyte str)))
955 (if (string-match "-k " Man-arguments)
989 'Man-target-string (cond
991 (match-string target))
1140 " {" 'Man-page-mode-string "}")
1146 (set-syntax-table man-mode-syntax-table)
1162 (aput 'Man-sections-alist (match-string 1))
1183 (let* ((word (match-string 0))
1193 (if (string-match Man-reference-regexp word)
1209 (match-string 1)
1340 (string= chosen ""))
1385 (if (string-match "-$" word)
1395 (string= chosen ""))
1433 Man-page-mode-string (Man-make-page-mode-string))