emacs/lisp/subr.el

9 ;; This file is part of GNU Emacs.
22 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
623     ;; Find the actual command name within the binding.
694 ;; and not compiled into the .elc file.  The value is negative on most
896 (defsubst posn-image (position)
897   "Return the image object of POSITION.
898 Value is a list (image ...), or nil if not an image.
904   "Return the object (image or string) of POSITION.
905 Value is a list (image ...) for an image object, a cons cell
909   (or (posn-image position) (posn-string position)))
1000 (defalias 'search-forward-regexp (symbol-function 're-search-forward))
1001 (defalias 'search-backward-regexp (symbol-function 're-search-backward))
1009 (defalias 'user-original-login-name 'user-login-name)
1281 (defun add-minor-mode (toggle name &optional keymap after toggle-fun)
1286 TOGGLE is a symbol which is the name of a buffer-local variable that
1311   ;; Add the name to the minor-mode-alist.
1312   (when name
1315 	  (setcdr existing (list name))
1324 		(nconc found (list (list toggle name)) rest))
1325 	    (setq minor-mode-alist (cons (list toggle name)
1334 		 (if (stringp name) name (symbol-name toggle)))
1335 	     (let ((mode-name (if (symbolp name) (symbol-value name))))
1336 	       (if (and (stringp mode-name) (string-match "[^ ]+" mode-name))
1337 		   (concat " (" (match-string 0 mode-name) ")"))))
1361 ;; (defvar symbol-file-load-history-loaded nil
1362 ;;   "Non-nil means we have loaded the file `fns-VERSION.el' in `exec-directory'.
1363 ;; That file records the part of `load-history' for preloaded files,
1366 ;; (defun load-symbol-file-load-history ()
1367 ;;   "Load the file `fns-VERSION.el' in `exec-directory' if not already done.
1368 ;; That file records the part of `load-history' for preloaded files,
1370 ;;   (unless symbol-file-load-history-loaded
1371 ;;     (load (expand-file-name
1377 ;; 	  ;; The file name fns-%s.el already has a .el extension.
1379 ;;     (setq symbol-file-load-history-loaded t)))
1381 (defun symbol-file (symbol &optional type)
1383 The value is an absolute file name.
1384 It can also be nil, if the definition is not associated with any file.
1395 	  file)
1407 	    (setq file (car (car files)) files nil))
1409       file)))
1413   "Show the precise file name of Emacs library LIBRARY.
1415 to find the file that `\\[load-library] RET LIBRARY RET' would load.
1417 to the specified name LIBRARY.
1422 When called from a program, the file name is normaly returned as a
1424 and the file name is displayed in the echo area."
1426 				      'locate-file-completion
1430   (let ((file (locate-file library
1433 				   load-file-rep-suffixes))))
1435 	(if file
1436 	    (message "Library is file %s" (abbreviate-file-name file))
1438     file))
1450 That function's doc string says which file created it."
1455 		 '(lambda () ,(concat "From " (or load-file-name "no file"))
1460 (defun load-history-regexp (file)
1461   "Form a regexp to find FILE in `load-history'.
1463   (if (file-name-absolute-p file)
1464       (setq file (file-truename file)))
1465   (concat (if (file-name-absolute-p file) "\\`" "\\(\\`\\|/\\)")
1466 	  (regexp-quote file)
1467 	  (if (file-name-extension file)
1469 	    ;; Note: regexp-opt can't be used here, since we need to call
1471 	    (concat "\\(" (mapconcat 'regexp-quote load-suffixes "\\|") "\\)?"))
1472 	  "\\(" (mapconcat 'regexp-quote jka-compr-load-suffixes "\\|")
1475 (defun load-history-filename-element (file-regexp)
1483 		      (not (string-match file-regexp (car load-elt)))))
1488 (defun eval-after-load (file form)
1492 If a matching file is loaded again, FORM will be evaluated again.
1494 If FILE is a string, it may be either an absolute or a relative file
1495 name, and may have an extension \(e.g. \".el\") or may lack one, and
1499 When FILE is absolute, this first converts it to a true name by chasing
1500 symbolic links.  Only a file of this name \(see next paragraph regarding
1502 a file whose absolute true name ends in FILE will trigger evaluation.
1504 When FILE lacks an extension, a file name with any extension will trigger
1507 this name matching.
1512 Usually FILE is just a library name like \"font-lock\" or a feature name
1518   (let* ((regexp-or-feature
1519 	  (if (stringp file) (load-history-regexp file) file))
1520 	 (elt (assoc regexp-or-feature after-load-alist)))
1522       (setq elt (list regexp-or-feature))
1528     ;; Is there an already loaded file whose name (or `provide' name)
1530     (if (if (stringp file)
1531 	    (load-history-filename-element regexp-or-feature)
1532 	  (featurep file))
1535 (defun do-after-load-evaluation (abs-file)
1537 ABS-FILE, a string, should be the absolute true name of a file just loaded."
1539 	a-l-element file-elements file-element form)
1544 		 (string-match (car a-l-element) abs-file))
1545 	(while (setq a-l-element (cdr a-l-element)) ; discard the file name
1549 (defun eval-next-after-load (file)
1552 FILE should be the name of a library, with no directory name."
1553   (eval-after-load file (read)))
1561   (defun open-network-stream (name buffer host service)
1567 NAME is name for process.  It is modified if necessary to make it unique.
1568 BUFFER is the buffer (or buffer name) to associate with the process.
1573 HOST is name of the host to connect to, or its IP address.
1574 SERVICE is name of the service desired, or an integer specifying
1576     (make-network-process :name name :buffer buffer
1750 	      (replace-regexp-in-string "[ \t]*\\'"
1944 	(name buffer-file-name)
1952 	    ;; defeat file locking... don't try this at home, kids!
1953 	    (setq buffer-file-name nil)
1988       (setq buffer-file-name name)
2006 (defun remove-overlays (&optional beg end name val)
2018       (when (eq (overlay-get o name) val)
2057 (defvar buffer-file-type nil
2058   "Non-nil if the visited file is a binary file.
2100   :file FILE - read sound data from FILE.  If FILE isn't an
2101 absolute file name, it is searched in `data-directory'.
2105 Exactly one of :file or :data must be present.
2112 a system-dependent default device name is used."
2280 BUFFER may be a buffer or a buffer name.
2290 BUFFER may be a buffer or a buffer name.
2305 (defun start-process-shell-command (name buffer &rest args)
2307 NAME is name for process.  It is modified if necessary to make it unique.
2308 BUFFER is the buffer (or buffer name) to associate with the process.
2313 COMMAND is the name of a shell command.
2322     (apply 'start-process name buffer args))
2326     (start-process name buffer shell-file-name shell-command-switch
2333 The program's input comes from file INFILE (nil means `/dev/null').
2340 t (mix it with ordinary output), or a file name string.
2356     (call-process shell-file-name
2366 BUFFER can be a buffer or a buffer name.
2409 (defmacro with-temp-file (file &rest body)
2414   (let ((temp-file (make-symbol "temp-file"))
2416     `(let ((,temp-file ,file)
2418 	    (get-buffer-create (generate-new-buffer-name " *temp file*"))))
2425 	       (write-region (point-min) (point-max) ,temp-file nil 0)))
2426 	 (and (buffer-name ,temp-buffer)
2454 See also `with-temp-file' and `with-output-to-string'."
2461 	 (and (buffer-name ,temp-buffer)
2468 	  (get-buffer-create (generate-new-buffer-name " *string-output*"))))
2640 NUM specifies which parenthesized expression in the last regexp.
2642 Zero means the entire text matched by the whole regexp or whole string.
2651 NUM specifies which parenthesized expression in the last regexp.
2653 Zero means the entire text matched by the whole regexp or whole string.
2662 (defun looking-back (regexp &optional limit greedy)
2675 	   (and (re-search-backward (concat "\\(?:" regexp "\\)\\=") limit t)
2684 			(looking-at (concat "\\(?:"  regexp "\\)\\'"))))
2688 	    (looking-at (concat "\\(?:"  regexp "\\)\\'")))))
2691 (defun subregexp-context-p (regexp pos &optional start)
2693 A subregexp context is one where a sub-regexp can appear.
2699   ;; reuses the regexp-matcher's own parser, so it understands all the
2704         (string-match (substring regexp (or start 0) pos) "")
2706     (invalid-regexp
2728   ;; (string-match re-context-re (substring regexp (or start 0) pos))
2737 A regexp matching strings of whitespace.  May be locale-dependent
2808 (defun replace-regexp-in-string (regexp rep string &optional
2826   (replace-regexp-in-string \"\\\\(foo\\\\).*\\\\'\" \"bar\" \" foo foo\" nil nil 1)
2843       (while (and (< start l) (string-match regexp string start))
2853 	(string-match regexp (setq str (substring string mb me)))
2986 If SYNTAX is provided it's a regexp that describes the possible text of
2988 its text matches the regexp.
3231 (defvar version-regexp-alist
3258 REGEXP		regexp used to match non-numeric part of a version string.
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)