emacs/lisp/subr.el

29 (defvar custom-declare-variable-list nil
35 (defun custom-declare-variable-early (&rest arguments)
36   (setq custom-declare-variable-list
37 	(cons arguments custom-declare-variable-list)))
121   "Temporary variable used in `dolist' expansion.")
144   "Temporary variable used in `dotimes' expansion.")
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)))
290 to make sure that TO is included, one may have to explicitly write
291 TO as \(+ FROM \(* N INC)) or use a variable whose value was
353 (make-obsolete 'assoc-ignore-case 'assoc-string)
360 (make-obsolete 'assoc-ignore-representation 'assoc-string)
444 Normally, as an exception, digits and minus-sign are set to make prefix args,
531 	    (make-char-table 'keyboard-translate-table nil)))
545 Note that if KEY has a local binding in the current buffer,
546 that local binding will continue to shadow any global binding
547 that you make with this function."
553 (defun local-set-key (key command)
554   "Give KEY a local binding as COMMAND.
561 The binding goes in the current buffer's local map,
564   (let ((map (current-local-map)))
566 	(use-local-map (setq map (make-sparse-keymap))))
577 (defun local-unset-key (key)
578   "Remove local binding of KEY.
581   (if (current-local-map)
582       (local-set-key key nil))
679 (defvar ctl-x-4-map (make-sparse-keymap)
684 (defvar ctl-x-5-map (make-sparse-keymap)
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)
934 (make-obsolete 'char-bytes "now always returns 1." "20.4")
942 (make-obsolete 'insert-string 'insert "22.1")
944 (defun makehash (&optional test) (make-hash-table :test (or test 'eql)))
945 (make-obsolete 'makehash 'make-hash-table "22.1")
949   "Return the value of the `baud-rate' variable."
951 (make-obsolete 'baud-rate "use the `baud-rate' variable instead." "before 19.15")
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")
963 (make-obsolete-variable 'directory-sep-char "do not use it." "21.1")
964 (make-obsolete-variable
968 (make-obsolete-variable
970  "use `unread-command-events' instead.  That variable is a list of events
975 (define-obsolete-variable-alias 'executing-macro 'executing-kbd-macro
979 (make-obsolete-variable 'x-lost-selection-hooks
982 (make-obsolete-variable 'x-sent-selection-hooks
1004 (defalias 'make-variable-frame-localizable 'make-variable-frame-local)
1015 (defun make-local-hook (hook)
1016   "Make the hook HOOK local to the current buffer.
1022 When a hook is local, its local and global values
1024 functions listed in *either* the local value *or* the global value
1025 of the hook variable.
1027 This function works by making t a member of the buffer-local value,
1034 This function does nothing if HOOK is already local in the current
1037 Do not use `make-local-variable' to make a hook variable buffer-local."
1038   (if (local-variable-p hook)
1041     (make-local-variable hook)
1044 (make-obsolete 'make-local-hook "not necessary any more." "21.1")
1046 (defun add-hook (hook function &optional append local)
1054 the hook's buffer-local value rather than its default value.
1055 This makes the hook buffer-local if needed, and it makes t a member
1056 of the buffer-local value.  That acts as a flag to run the hook
1057 functions in the default value as well as in the local value.
1064   (if local (unless (local-variable-if-set-p hook)
1065 	      (set (make-local-variable hook) (list t)))
1066     ;; Detect the case where make-local-variable was used on a hook
1069       (setq local t)))
1070   (let ((hook-value (if local (symbol-value hook) (default-value hook))))
1080     ;; Set the actual variable
1081     (if local (set hook hook-value) (set-default hook hook-value))))
1083 (defun remove-hook (hook function &optional local)
1090 the hook's buffer-local value rather than its default value."
1093   ;; Do nothing if LOCAL is t but this hook has no local binding.
1094   (unless (and local (not (local-variable-p hook)))
1095     ;; Detect the case where make-local-variable was used on a hook
1097     (when (and (local-variable-p hook)
1100       (setq local t))
1101     (let ((hook-value (if local (symbol-value hook) (default-value hook))))
1107       ;;(when (and local (member function (default-value hook))
1110       ;; Set the actual variable
1111       (if (not local)
1114 	    (kill-local-variable hook)
1127 If you want to use `add-to-list' on a variable that is not defined
1173            (setq ordering (make-hash-table :weakness 'key :test 'eq))))
1187   "Add NEWELT to the history list stored in the variable HISTORY-VAR.
1192 variable.
1226 (make-variable-buffer-local 'delayed-mode-hooks)
1227 (put 'delay-mode-hooks 'permanent-local t)
1255      (make-local-variable 'delay-mode-hooks)
1286 TOGGLE is a symbol which is the name of a buffer-local variable that
1364 ;; which is cleared out before dumping to make Emacs smaller.")
1369 ;; which is cleared out before dumping to make Emacs smaller."
1388 definition only or variable definition only.
1403 	      ;; We accept all types, so look for variable def
1558 ;; open-network-stream is a wrapper around make-network-process.
1560 (when (featurep 'make-network-process)
1567 NAME is name for process.  It is modified if necessary to make it unique.
1576     (make-network-process :name name :buffer buffer
1581 (make-obsolete
1614 (custom-declare-variable-early
1630 The variable `read-quoted-char-radix' controls which radix to use
1681 If optional CONFIRM is non-nil, read the password twice to make sure.
1691   (with-local-quit
1718 			       (make-string (length pass) ?.))
1806 	    (if (eq overriding-terminal-local-map universal-argument-map)
1824   (let ((handle (make-symbol "--change-group-handle--"))
1825 	(success (make-symbol "--change-group-success--")))
1832 	     ;; to make sure that it gets disabled again.
1844 If you specify BUFFER, make a handle for BUFFER's state instead.
1853 `unwind-protect' to make sure the group is always finished.  The call
1859 The handle records only the specified buffer.  To make a multibuffer
1925 menu bar menus and the frame title."
1997   (let ((o1 (make-overlay (overlay-start o) (overlay-end o)
2046 function to make the buffer read only, and find function names and
2047 variable names in it, provided the major mode is still Help mode.")
2055 ;; Avoid compiler warnings about this variable,
2059 This variable is meaningful on MS-DOG and Windows NT.
2060 On those systems, it is automatically local in every buffer.
2061 On other systems, this variable is normally always nil.")
2307 NAME is name for process.  It is modified if necessary to make it unique.
2379 its normal operation could potentially make a different
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.
2396 	  (mapcar (lambda (frame) (list frame (frame-selected-window frame)))
2397 		  (frame-list))))
2403 	   (and (frame-live-p (car elt))
2405 		(set-frame-selected-window (car elt) (cadr elt))))
2414   (let ((temp-file (make-symbol "temp-file"))
2415 	(temp-buffer (make-symbol "temp-buffer")))
2437   (let ((current-message (make-symbol "current-message"))
2438 	(temp-message (make-symbol "with-temp-message")))
2456   (let ((temp-buffer (make-symbol "temp-buffer")))
2476 (defmacro with-local-quit (&rest body)
2478 When a quit terminates BODY, `with-local-quit' returns nil but
2499   (let ((catch-sym (make-symbol "input")))
2500     `(with-local-quit
2528   (let ((old-case-table (make-symbol "table"))
2529 	(old-buffer (make-symbol "buffer")))
2554   (let ((win (make-symbol "window"))
2555         (string (make-symbol "string"))
2556         (predicate (make-symbol "predicate"))
2557         (mode (make-symbol "mode")))
2581   "Initialize variable VAR as a lazy completion table.
2589 You should give VAR a non-nil `risky-local-variable' property."
2591   (let ((str (make-symbol "string")))
2619 ;; We use save-match-data-internal as the local variable because
2620 ;; that works ok in practice (people should not use that variable elsewhere).
2824 To replace only the first match (if any), make REGEXP match up to \\'
2846 	;; If we matched the empty string, make sure we advance by one char
2893   (let ((old-table (make-symbol "table"))
2894 	(old-buffer (make-symbol "buffer")))
2905 (defun make-syntax-table (&optional oldtable)
2909   (let ((table (make-char-table 'syntax-table nil)))
2997   ;; `evaporate' to make sure those overlays get deleted when needed).
3006   	 (ol1 (make-overlay (- start start-margin) (+ end end-margin) nil t))
3007   	 (ol2 (make-overlay (- (point) start-margin) (+ pt-end end-margin) nil t))
3034 value as a variable do not matter for this usage; we use only certain
3052 Optional HOOKVAR is a hook variable that gets run before the message
3054 install a hook function temporarily on this hook variable.
3088 `make-progress-reporter' for details).
3091 `make-progress-reporter'.  Second, VALUE, determines the actual
3093 as passed to `make-progress-reporter'.
3100 (defun make-progress-reporter (message min-value max-value
3203 convenience wrapper around `make-progress-reporter' and friends.
3207   (let ((temp (make-symbol "--dotimes-temp--"))
3208 	(temp2 (make-symbol "--dotimes-temp2--"))
3213 	   (,temp2 (make-progress-reporter ,message ,start ,end)))