Lines Matching defs:message
44 (defconst ediff-long-help-message-head
47 "The head of the full help message.")
48 (defconst ediff-long-help-message-tail
56 "The tail of the full-help message.")
58 (defconst ediff-long-help-message-compare3
69 "Help message usually used for 3-way comparison.
70 Normally, not a user option. See `ediff-help-message' for details.")
72 (defconst ediff-long-help-message-compare2
83 "Help message usually used for 2-way comparison.
84 Normally, not a user option. See `ediff-help-message' for details.")
86 (defconst ediff-long-help-message-narrow2
97 "Help message when comparing windows or regions line-by-line.
98 Normally, not a user option. See `ediff-help-message' for details.")
100 (defconst ediff-long-help-message-word-mode
111 "Help message when comparing windows or regions word-by-word.
112 Normally, not a user option. See `ediff-help-message' for details.")
114 (defconst ediff-long-help-message-merge
127 "Help message for merge sessions.
128 Normally, not a user option. See `ediff-help-message' for details.")
130 ;; The actual long help message.
131 (ediff-defvar-local ediff-long-help-message ""
132 "Normally, not a user option. See `ediff-help-message' for details.")
134 (defconst ediff-brief-message-string
136 "Contents of the brief help message.")
137 ;; The actual brief help message
138 (ediff-defvar-local ediff-brief-help-message ""
139 "Normally, not a user option. See `ediff-help-message' for details.")
141 (ediff-defvar-local ediff-brief-help-message-function nil
142 "The brief help message that the user can customize.
144 produce the brief help message. This function must return a string.")
145 (ediff-defvar-local ediff-long-help-message-function nil
146 "The long help message that the user can customize.
147 See `ediff-brief-help-message-function' for more.")
149 (defcustom ediff-use-long-help-message nil
150 "*If t, Ediff displays a long help message. Short help message otherwise."
154 ;; The actual help message.
155 (ediff-defvar-local ediff-help-message ""
156 "The actual help message.
159 the value of this variable and the variables `ediff-help-message-*' in
256 ;; help message
257 (defun ediff-help-message-line-length ()
260 (if ediff-use-long-help-message
266 (defun ediff-indent-help-message ()
268 (ediff-help-message-line-length)))
279 ;; compose the help message as a string
280 (defun ediff-set-help-message ()
281 (setq ediff-long-help-message
282 (cond ((and ediff-long-help-message-function
283 (or (symbolp ediff-long-help-message-function)
284 (consp ediff-long-help-message-function)))
285 (funcall ediff-long-help-message-function))
287 (concat ediff-long-help-message-head
288 ediff-long-help-message-word-mode
289 ediff-long-help-message-tail))
291 (concat ediff-long-help-message-head
292 ediff-long-help-message-narrow2
293 ediff-long-help-message-tail))
295 (concat ediff-long-help-message-head
296 ediff-long-help-message-merge
297 ediff-long-help-message-tail))
299 (concat ediff-long-help-message-head
300 ediff-long-help-message-compare3
301 ediff-long-help-message-tail))
303 (concat ediff-long-help-message-head
304 ediff-long-help-message-compare2
305 ediff-long-help-message-tail))))
306 (setq ediff-brief-help-message
307 (cond ((and ediff-brief-help-message-function
308 (or (symbolp ediff-brief-help-message-function)
309 (consp ediff-brief-help-message-function)))
310 (funcall ediff-brief-help-message-function))
311 ((stringp ediff-brief-help-message-function)
312 ediff-brief-help-message-function)
313 ((ediff-multiframe-setup-p) ediff-brief-message-string)
315 ediff-brief-message-string)
317 (setq ediff-help-message (if ediff-use-long-help-message
318 ediff-long-help-message
319 ediff-brief-help-message))