emacs/lisp/subr.el

126 Then evaluate RESULT to get return value, default nil.
190 ;; We put this here instead of in frame.el so that it's defined even on
191 ;; systems where frame.el isn't loaded.
192 (defun frame-configuration-p (object)
193   "Return non-nil if OBJECT seems to be a frame configuration.
194 Any list whose car is `frame-configuration' is assumed to be a frame
197        (eq (car object) 'frame-configuration)))
335 (defun assoc-default (key alist &optional test default)
336   "Find object KEY in a pseudo-alist ALIST.
340 then `assoc-default' returns the element's cdr, if it is a cons,
345   (let (found (tail alist) value)
349 	  (setq found t value (if (consp elt) (cdr elt) default))))
354 (defun assoc-ignore-case (key alist)
358   (assoc-string key alist t))
361 (defun assoc-ignore-representation (key alist)
365   (assoc-string key alist nil))
378 (defun assq-delete-all (key alist)
380 Return the modified alist.
382   (while (and (consp (car alist))
383 	      (eq (car (car alist)) key))
384     (setq alist (cdr alist)))
385   (let ((tail alist) tail-cdr)
391   alist)
393 (defun rassq-delete-all (value alist)
395 Return the modified alist.
397   (while (and (consp (car alist))
398 	      (eq (cdr (car alist)) value))
399     (setq alist (cdr alist)))
400   (let ((tail alist) tail-cdr)
406   alist)
685   "Keymap for frame commands.")
849 and y coordinates in POSITION and the frame's default character width
866       (let* ((frame (if (framep window) window (window-frame window)))
867 	     (x (/ (car pair) (frame-char-width frame)))
868 	     (y (/ (cdr pair) (+ (frame-char-height frame)
869 				 (or (frame-parameter frame 'line-spacing)
870 				     default-line-spacing
954 (defalias 'focus-frame 'ignore "")
955 (make-obsolete 'focus-frame "it does nothing." "22.1")
956 (defalias 'unfocus-frame 'ignore "")
957 (make-obsolete 'unfocus-frame "it does nothing." "22.1")
1004 (defalias 'make-variable-frame-localizable 'make-variable-frame-local)
1028 which acts as a flag to run the hook functions in the default value as
1054 the hook's buffer-local value rather than its default value.
1057 functions in the default value as well as in the local value.
1063   (or (default-boundp hook) (set-default hook nil))
1070   (let ((hook-value (if local (symbol-value hook) (default-value hook))))
1081     (if local (set hook hook-value) (set-default hook hook-value))))
1090 the hook's buffer-local value rather than its default value."
1092   (or (default-boundp hook) (set-default hook nil))
1101     (let ((hook-value (if local (symbol-value hook) (default-value hook))))
1107       ;;(when (and local (member function (default-value hook))
1112 	  (set-default hook hook-value)
1294 to `minor-mode-map-alist'.
1297 in `minor-mode-alist'.
1311   ;; Add the name to the minor-mode-alist.
1313     (let ((existing (assq toggle minor-mode-alist)))
1316 	(let ((tail minor-mode-alist) found)
1325 	    (setq minor-mode-alist (cons (list toggle name)
1326 					 minor-mode-alist)))))))
1341   ;; Add the map to the minor-mode-map-alist.
1343     (let ((existing (assq toggle minor-mode-map-alist)))
1346 	(let ((tail minor-mode-map-alist) found)
1355 	    (setq minor-mode-map-alist (cons (cons toggle keymap)
1356 					     minor-mode-map-alist))))))))
1515 This function makes or adds to an entry on `after-load-alist'."
1516   ;; Add this FORM into after-load-alist (regardless of whether we'll be
1520 	 (elt (assoc regexp-or-feature after-load-alist)))
1523       (push elt after-load-alist))
1538   (let ((after-load-elts after-load-alist)
1551 This makes or adds to an entry on `after-load-alist'.
1679 (defun read-passwd (prompt &optional confirm default)
1682 Optional DEFAULT is a default password to use instead of empty input.
1695 	    (let ((first (read-passwd prompt nil default))
1696 		  (second (read-passwd "Confirm password: " nil default)))
1738 	(or pass default "")))))
1741 (defun read-number (prompt &optional default)
1743 DEFAULT specifies a default value to return if the user just types RET.
1746     (when default
1749 		(replace-match (format " (default %s)" default) t t prompt 1)
1751 					(format " (default %s) " default)
1756 					   (and default
1757 						(number-to-string default)))))
1760 			 ((zerop (length str)) default)
1925 menu bar menus and the frame title."
2009 BEG and END default respectively to the beginning and end of buffer."
2072 (defun find-tag-default ()
2073   "Determine default tag to search for, based on text at point.
2074 If there is no plausible default, return nil."
2112 a system-dependent default device name is used."
2282 They default to the values of (point-min) and (point-max) in BUFFER."
2292 They default to the values of (point-min) and (point-max) in BUFFER.
2383 the selected window in each frame.  If the previously selected
2384 window of some frame is no longer live at the end of BODY, that
2385 frame's selected window is left alone.  If the selected window is
2393 	 ;; select-window changes frame-selected-window for whatever
2394 	 ;; frame that window is in.
2395 	 (save-selected-window-alist
2396 	  (mapcar (lambda (frame) (list frame (frame-selected-window frame)))
2397 		  (frame-list))))
2402 	 (dolist (elt save-selected-window-alist)
2403 	   (and (frame-live-p (car elt))
2405 		(set-frame-selected-window (car elt) (cadr elt))))
2544 and it should return an alist containing all the intended possible
2545 completions.  This alist may be a full list of possible completions so that FUN
2734 (defconst split-string-default-separators "[ \f\t\n\r\v]+"
2735   "The default value of separators for `split-string'.
2740 Warning: binding this to a different value and using it as default is
2757 `split-string-default-separators', normally \"[ \\f\\t\\n\\r\\v]+\", and
2761 that for the default value of SEPARATORS leading and trailing whitespace
2766 `(split-string STRING split-string-default-separators t)'.  In the rare
2768 whitespace, use `(split-string STRING split-string-default-separators)'.
2772 	(rexp (or separators split-string-default-separators))
3041 by default.
3119 report (default is 1%.)  Optional MIN-TIME specifies the minimal
3120 time before echo area updates (default is 0.2 seconds.)  If
3231 (defvar version-regexp-alist
3276 	       | `version-regexp-alist' (which see).
3279 in `version-regexp-alist'.
3301 See documentation for `version-separator' and `version-regexp-alist'."
3326 	    (setq al version-regexp-alist)