Lines Matching +defs:value +defs:get
183 (defmacro defcustom (var value doc &rest args)
184 `(defvar ,var ,value ,doc))))
220 A value equal to negative `idlwave-block-indent' will make END lines
259 the value of `max-extra-continuation-indent', which, if zero, would
372 good value for this variable is about 1/3 of the time initialization
397 Querying the shell is useful to get information about compiled modules,
435 path \(the value of !PATH). However, under Windows and MacOS
439 variable is nil. The value is a list of directories. A directory
448 UNIX. Set this to the value of the `!DIR' system variable in IDL.
453 value of `!DIR'. See also `idlwave-library-path'."
526 The value can also be any Emacs Lisp function which transforms the
529 A value of `preserve' means that the case of the completed word is
613 The value of this variable may be nil to inhibit display, or an integer to
618 item is displayed in the echo area. If the value of this variable is a
662 method-keyword completion behavior. Its value is an alist, which
681 (cons (string :tag "MODULE" :value "")
689 value of the variable `idlwave-query-class'.
730 A value of `2' means, also add the closing parenthesis and position cursor
789 assignments. If nil then spaces are removed. With any other value,
825 If the value t, all expanded abbrevs will be upper case.
826 If the value is 'down then abbrevs will be forced to lower case.
1023 (repeat (string :value "")))
1238 (mapcar 'symbol-value idlwave-default-font-lock-items)
1258 (get-text-property (match-beginning 0) 'idlwave-class)))
1371 type. The associated value is a list. The first element of this list
1485 replacing any previous value for KEY. If a binding is not set then it
1646 (let ((abbrevs-changed nil) ;; mask the current value to avoid save
2053 Evaluates a non-nil value of the *variable* `idlwave-command-hook' and
2075 is non-nil, unless its value is \`down in which case the abbrev will be
2304 If the value of N is:
2730 assignment. Any other value keeps the current space around the `='.
3134 Return value is the beginning of the match or (in case of failure) nil."
3583 (not (symbol-value idlwave-fill-function))
3584 (> (prefix-numeric-value arg) 0))
3597 Inserts the value of the variable idlwave-file-header. Sets mark before
3636 Looks for an occurrence of the value of user variable
3894 (defun idlwave-get-buffer-visiting (file)
3899 (get-file-buffer file)))
3902 (t (error "This should not happen (idlwave-get-buffer-visiting)"))))
3910 (or (idlwave-get-buffer-visiting file)
4036 (setq buffer (get-buffer-create "*idltags*"))
4059 (setq errbuf (get-buffer-create "*idltags-error*"))
4082 (setq errbuf (get-buffer-create "*idltags-error*"))
4097 (comment-region beg end (prefix-numeric-value n))
4169 do (if (not (consp (symbol-value var))) (set var (list nil))))
4176 do (setcdr (symbol-value var)
4186 do (setcar (symbol-value var)
4307 (set var nil) ; initial value of the association list
4358 ;; The code to get routine info from different sources.
4367 only returns the value of the variable."
4380 ;; Something is wrong, get rid of the process
4389 ;; return the current value
4510 (if (get 'idlwave-reset-sintern 'done-by-idle)
4537 (idlwave-shell-get-path-info)
4649 props get-props set-props init-props inherits
4667 (get (string= (cdr (assq 'get props)) "Yes"))
4670 (if get (push (list pname plink) get-props))
4682 (put 'get-props 'matched t)
4683 get-props)
4693 ;(unless (get 'init-props 'matched)
4695 ;(unless (get 'get-props 'matched)
4697 ;(unless (get 'set-props 'matched)
4755 ; (with-current-buffer (get-buffer-create "IDL_XML_catalog_complaints")
5124 (setq res (idlwave-get-routine-info-from-buffers
5134 (setq res (idlwave-get-routine-info-from-buffers
5197 (idlwave-get-routine-info-from-buffers
5224 (defun idlwave-get-routine-info-from-buffers (buffers)
5225 "Call `idlwave-get-buffer-routine-info' on idlwave-mode buffers in BUFFERS."
5234 (idlwave-get-buffer-routine-info)
5240 (defun idlwave-get-buffer-routine-info ()
5394 (idlwave-shell-get-path-info 'no-write) ; set to something path-alist
5427 (kill-buffer (get-buffer-create "*IDLWAVE Widget*"))
5428 (switch-to-buffer (get-buffer-create "*IDLWAVE Widget*"))
5445 (let ((path-list (widget-get idlwave-widget :path-dirs)))
5456 (let ((path-list (widget-get idlwave-widget :path-dirs)))
5474 :value (delq nil (mapcar (lambda (x)
5502 (selected-dirs (widget-value widget))
5503 (path-alist (widget-get widget :path-dirs))
5528 (set-buffer (get-buffer-create "*idlwave-scan.pro*"))
5545 (append (idlwave-get-routine-info-from-buffers
5550 (kill-buffer (get-buffer-create "*IDLWAVE Widget*"))
5601 ;; Define the variable which knows the value of "!DIR"
5803 print, 'Cannot get info about system variables'
5807 v = strsplit(s,' +',/regex,/extract) ; get variables
5809 t = [''] ; get tag list
5822 "The idl programs to get info from the shell.")
5953 (get-buffer-window "*Completions*"))
6209 (t (error "Invalid value for WHAT")))))
6213 (let ((old-value (default-value 'completion-ignore-case)))
6218 (setq-default completion-ignore-case old-value))))
6266 "Like `idlwave-rinfo-assq', but get all twins and sort, then return first.
6383 ;; return nil. When t, try to get the class from text properties at
6412 (if (and arrow (get-text-property apos 'idlwave-class)
6415 (setq class (get-text-property apos 'idlwave-class)
6487 The return value is a list with the following stuff:
6582 ;; The return value is ("function-name" class arrow-start (point) level).
6625 ;; The return value is ("procedure-name" class arrow-pos (point)).
6790 (let ((link (get-text-property 0 'link (car x))))
6853 ;; SHOW-CLASSES is the value of `idlwave-completion-show-classes'.
6873 ;; get the classes
6952 (setq resp (get-popup-menu-response menu))
7022 (let ((cwin (get-buffer-window "*Completions*" 'visible))
7040 (unless (and (get-buffer-window "*Completions*")
7041 (idlwave-local-value 'idlwave-completion-p "*Completions*"))
7050 ;; Store a special value in `this-command'. When `idlwave-complete'
7070 (let ((completion-ignore-case t)) ; install correct value
7105 (let* ((alist (symbol-value sym))
7110 (if (and (eq (symbol-value sym) (get sym :one-key-alist-last)))
7111 (setq keys-alist (get sym :one-key-alist-cache))
7183 (defun idlwave-set-local (var value &optional buffer)
7184 "Set the buffer-local value of VAR in BUFFER to VALUE."
7187 (set (make-local-variable var) value)))
7189 (defun idlwave-local-value (var &optional buffer)
7190 "Return the value of VAR in BUFFER, but only if VAR is local to BUFFER."
7194 (symbol-value var))))
7459 (cons file (if file (idlwave-get-buffer-visiting file)))))
7474 nil ; Cannot find the file/buffer to get any info
7478 (set-buffer (get-buffer-create " *IDLWAVE-tmp*"))
7842 ;; Keep the old value if query was not successful
7893 (get-buffer-window "*Completions*") ; visible
7894 (idlwave-local-value 'idlwave-completion-p
7947 (if (get-text-property (point) 'idlwave-class)
7959 (get-text-property (point) 'idlwave-class)))
8345 (let ((ri-window (get-buffer-window "*Help*"))
8346 (olh-window (get-buffer-window "*IDLWAVE Help*")))
8399 (set-buffer (get-buffer-create "*Help*"))
8490 (if (and (setq win (get-buffer-window "*Help*"))
8610 (setq data (get-text-property (point) 'data)
8611 source (get-text-property (point) 'source)
8612 keyword (get-text-property (point) 'keyword)
8613 link (get-text-property (point) 'link)
8619 bufwin (get-buffer-window buf t))
8636 (idlwave-help-get-special-help name type class nil))
8657 (let ((bwin (get-buffer-window buffer)))
8663 (setq bwin (get-buffer-window buffer)))
8760 (get-text-property (point) 'find-args))))
8765 (get-text-property (point) 'find-args))))
8768 (set-buffer (get-buffer-create "*Shadows*"))
8803 (display-buffer (get-buffer "*Shadows*"))
9171 :selected (symbol-value idlwave-fill-function)])
9328 (let ((table (symbol-value 'idlwave-mode-abbrev-table))
9333 (if (symbol-value sym)
9336 rpl (symbol-value sym)