Lines Matching +defs:before +defs:string
52 (defvar inferior-octave-output-string nil)
100 (string octave-comment-char ?\ )
168 The string `function' and its name are given by the first and third
197 :type 'string
370 (concat (make-string 2 octave-comment-char) " ")
379 (defcustom octave-continuation-string "\\"
380 "*Character string used for Octave continuation lines. Normally \\."
381 :type 'string
471 octave-continuation-string
578 (defsubst octave-in-string-p ()
579 "Returns t if point is inside an Octave string, nil otherwise."
584 (defsubst octave-not-in-string-or-comment-p ()
585 "Returns t iff point is not inside an Octave string or comment."
611 (octave-not-in-string-or-comment-p))
620 (defun octave-maybe-insert-continuation-string ()
627 (insert (concat " " octave-continuation-string))))
630 (string-match "XEmacs\\|Lucid" emacs-version))
637 (let ((comment-start (char-to-string octave-comment-char)))
680 (if (octave-not-in-string-or-comment-p)
700 (octave-not-in-string-or-comment-p))
703 (octave-not-in-string-or-comment-p))
706 (octave-before-magic-comment-p))
716 (if (string-match (match-string 0) "switch") 2 1))))
718 (defun octave-before-magic-comment-p ()
725 (octave-before-magic-comment-p))
765 If within code, insert `octave-continuation-string' before breaking the
766 line. If within a string, signal an error.
773 ((octave-in-string-p)
774 (error "Cannot split a code line inside a string"))
776 (insert (concat " " octave-continuation-string))
883 (if (octave-not-in-string-or-comment-p)
995 (if (and (octave-not-in-string-or-comment-p)
1023 (octave-in-string-p)
1051 (if (octave-not-in-string-or-comment-p)
1108 (setq fc (- fc (+ (length octave-continuation-string) 1))))
1127 ;; continuation string, don't break here.
1132 octave-continuation-string)
1145 (octave-maybe-insert-continuation-string)
1149 (octave-maybe-insert-continuation-string)
1201 (setq comment-prefix (match-string 0)))
1252 (string (buffer-substring-no-properties beg end))
1253 (completion (try-completion string octave-completion-alist)))
1256 (message "Can't find completion for \"%s\"" string)
1258 ((not (string= string completion))
1262 (let ((list (all-completions string octave-completion-alist))
1267 (display-completion-list list string))
1309 (if (not (octave-not-in-string-or-comment-p))
1327 (not (octave-not-in-string-or-comment-p)))
1371 (let ((string (format "%s %s (%s)"
1373 ((string-equal vals "")
1375 ((string-match "[ ,]" vals)
1383 (insert "function" string)
1386 (insert prefix "usage: " string)
1415 (process-send-string inferior-octave-process "quit;\n")
1439 (string (buffer-substring-no-properties beg end))
1444 (while (not (string-equal string ""))
1445 (if (string-match "\n" string)
1446 (setq line (substring string 0 (match-beginning 0))
1447 string (substring string (match-end 0)))
1448 (setq line string string ""))
1453 (insert-before-markers
1459 (list inferior-octave-output-string))
1497 "Evaluate Octave sexp before point and print value into current buffer."
1531 'octave-continuation-string