view lisp/emacs-lisp/lselect.el @ 10219:d97313bb6f39

(bibtex-string, bibtex-preamble): Use forward-line. (sort-subr): Don't call autload for this--that's done in loaddefs.el. (bibtex-mode): Add autoload cookie. Changed keybinding for bibtex-print-help-message (from \C-ch to \C-c?). Therefore, describe-mode is not longer on \C-c?. Also, changed prefix \C-cn for bibtex-narrow functions to \C-c\C-r. (bibtex-string-files): Changed documentation. (bibtex-mode-map): Inscriptions of menu bar changed from "Entry Types" to "Entry-Types" and "Bibtex Edit" to "BibTeX-Edit". (bibtex-string-files): Changed documentation. (bibtex-mode): If environment variable BIBINPUTS isn't defined, string files are searched in the current directory. (bibtex-completion-candidates): Now buffer-local to allow evaluation of different bibtex-string-files in different buffers. (bibtex-autokey-edit-before-use, bibtex-clean-entry): New variable that determines, if the user is allowed to edit auto-generated reference keys before they are used. (bibtex-generate-autokey, bibtex-clean-entry): New function to generate an autokey if necessary. (bibtex-autokey-names, bibtex-autokey-name-change-strings, bibtex-autokey-name-length, bibtex-autokey-name-separator, bibtex-autokey-year-length, bibtex-autokey-titlewords, bibtex-autokey-title-terminators, bibtex-autokey-titlewords-stretch, bibtex-autokey-titleword-first-ignore, bibtex-autokey-titleword-abbrevs, bibtex-autokey-titleword-change-strings, bibtex-autokey-titleword-length, bibtex-autokey-titleword-separator, bibtex-autokey-name-year-separator, bibtex-autokey-year-title-separator): New variables related to bibtex-generate-autokey. (bibtex-find-entry-location): Optional second parameter maybedup to tell it that entering a duplicate entry isn't to report by an error but by the return value of the function (necessary for bibtex-clean-entry to find the correct position of an entry with an autogenerated key without disturbing the user with unwanted messages). (bibtex-help-message): New variable to avoid printing of help messages in the echo area. (assoc-of-regexp): New function to match an alist of regexps. (bibtex-string-files, bibtex-completion-candidates, bibtex-mode): New variables to allow bibtex-complete-string to work on strings initialized from a variable and from @String definitions in a list of files, too. (bibtex-predefined-strings, bibtex-entry-field-alist): Changed to user options. (bibtex-mode): Changed doc string. (many functions and variables): Changed documentation strings of variables and functions to hold a complete sentence in the first line. (bibtex-print-help-message): Now line dependent and reports if it is called outside a BibTeX field. (validate-bibtex-buffer): Completely rewritten to validate, if buffer is syntactically correct. (find-bibtex-duplicates): Moved into validate-bibtex-buffer. (ispell-abstract, bibtex-ispell-abstract, ispell-bibtex-entry, bibtex-ispell-entry, beginning-of-bibtex-entry, bibtex-beginning-of-entry, end-of-bibtex-entry, bibtex-end-of-entry, hide-bibtex-entry-bodies, bibtex-hide-entry-bodies, narrow-to-bibtex-entry, bibtex-narrow-to-entry, sort-bibtex-entries, bibtex-sort-entries, validate-bibtex-buffer, bibtex-validate-buffer, find-bibtex-entry-location, bibtex-find-entry-location): All interactive functions are renamed, so that any interface function begins with "bibtex-". Mapping: ispell-abstract --> bibtex-ispell-abstract ispell-bibtex-entry --> bibtex-ispell-entry beginning-of-bibtex-entry --> bibtex-beginning-of-entry end-of-bibtex-entry --> bibtex-end-of-entry hide-bibtex-entry-bodies --> bibtex-hide-entry-bodies narrow-to-bibtex-entry --> bibtex-narrow-to-entry sort-bibtex-entries --> bibtex-sort-entries validate-bibtex-buffer --> bibtex-validate-buffer find-bibtex-entry-location --> bibtex-find-entry-location (bibtex-maintain-sorted-entries, bibtex-sort-ignore-string-entries): Default is now t. (bibtex-complete-string): String list is built from additional string list bibtex-predefined-string and current strings in file. (string-equalp): Deleted and substituted by string-equal. (assoc-string-equalp): Renamed to assoc-ignore-case. (bibtex-entry): Reference key can be entered with completion. All reference keys that are defined in buffer and all labels that appear in crossreference entries are object to completion. (Entry types): Changed order of entries in menu "entry types". (bibtex-entry-field-alist): Changed order of entries slightly to be more conform with standard BibTeX style layouts. (bibtex-mode-map): Uniform keybindings for \C-c\C-e prefix (often used types on control keys, sometimes used types on normal keys, rarely used types on shift keys, almost never used types on meta keys). (bibtex-mode-map): Function narrow-to-bibtex-entry and counterpart widen and function hide-bibtex-entry-bodies and counterpart show-all bounded to appropriate local keys. (bibtex-abbrev-table): Deleted (bibtex-current-entry-label, put-string-on-kill-ring): Deleted (AUCTeX provides all the functionality needed for citation completion). (bibtex-enclosing-reference, bibtex-pop-previous, bibtex-pop-next, bibtex-clean-entry): Hacked for speed (bibtex-pop-previous and bibtex-pop-next were to slow for larger BibTeX files). (bibtex-pop-previous, bibtex-pop-next): Delimiters from previous or next entry are changed to actual delimters if necessary. (bibtex-entry): Fixed bug (False entry wasn't reported in error message if bibtex-entry was called with undefined reference name). (bibtex-entry-field-alist, bibtex-entry, bibtex-make-field, bibtex-next-field, bibtex-clean-entry): Every reference entry now contains a comment in addition to the name of the reference. This comment appears in the echo area if you start editing that field (after calling bibtex-next-field). (bibtex-include-OPTcrossref, bibtex-entry): Changed bibtex-include-OPTcrossref from single boolean variable to hold a list of reference names which should have a crossref field. (bibtex-complete-word): New function, which completes word fragment before point to the longest prefix of predefined strings in the buffer in the same way that ispell-complete-word operates for words found in the dictionary. (bibtex-reference-head): Start of bibtex-reference-head changed from "^[ \t]*\\(" to "^\\( \\|\t\\)*\\(" (bibtex-pop-previous and bibtex-pop-next didn't work, probably due to a bug in re-search-forward). (several functions): Added support for {} as field delimiters (better than '"' for accented characters. (bibtex-clean-entry): If optional field crossref is empty or missing, former optional fields (if bibtex-include-OPTcrossref was t) are necessary again. bibtex-clean-entry complains if they are empty but not if they are missing, so you can intenionally omit them, e. g. for a pseudo @Journal entry (needed for crossreferences) made out of an @article with missing non-optional fields. Menu bar entries aren't centered anymore.

+
鐃緒申;;; lselect.el --- Lucid interface to X Selections
+
鐃緒申
+
鐃緒申;; Keywords: emulations
+
鐃緒申
+
鐃緒申;; This won't completely work until we support or emulate Lucid-style extents.
+
鐃緒申;; Copyright (C) 1990, 1993 Free Software Foundation, Inc.
+
鐃緒申;; Based on Lucid's selection code.
+
鐃緒申
+
鐃緒申;; This file is part of GNU Emacs.
+
鐃緒申
+
鐃緒申;; GNU Emacs is free software; you can redistribute it and/or modify
+
鐃緒申;; it under the terms of the GNU General Public License as published by
+
鐃緒申;; the Free Software Foundation; either version 2, or (at your option)
+
鐃緒申;; any later version.
+
鐃緒申
+
鐃緒申;; GNU Emacs is distributed in the hope that it will be useful,
+
鐃緒申;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+
鐃緒申;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+
鐃緒申;; GNU General Public License for more details.
+
鐃緒申
+
鐃緒申;; You should have received a copy of the GNU General Public License
+
鐃緒申;; along with GNU Emacs; see the file COPYING.  If not, write to
+
鐃緒申;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+
鐃緒申
+
鐃緒申;;; Code:
+
鐃緒申
+
鐃緒申;;; The selection code requires us to use certain symbols whose names are
+
鐃緒申;;; all upper-case; this may seem tasteless, but it makes there be a 1:1
+
鐃緒申;;; correspondence between these symbols and X Atoms (which are upcased.)
+
鐃緒申
+
鐃緒申(defalias 'x-get-cutbuffer 'x-get-cut-buffer)
+
鐃緒申(defalias 'x-store-cutbuffer 'x-set-cut-buffer)
+
鐃緒申
+
鐃緒申(or (find-face 'primary-selection)
+
鐃緒申    (make-face 'primary-selection))
+
鐃緒申
+
鐃緒申(or (find-face 'secondary-selection)
+
鐃緒申    (make-face 'secondary-selection))
+
鐃緒申
+
鐃緒申(defun x-get-secondary-selection ()
+
鐃緒申  "Return text selected from some X window."
+
鐃緒申  (x-get-selection-internal 'SECONDARY 'STRING))
+
鐃緒申
+
鐃緒申(defvar primary-selection-extent nil
+
鐃緒申  "The extent of the primary selection; don't use this.")
+
鐃緒申
+
鐃緒申(defvar secondary-selection-extent nil
+
鐃緒申  "The extent of the secondary selection; don't use this.")
+
鐃緒申
+
鐃緒申
+
鐃緒申(defun x-select-make-extent-for-selection (selection previous-extent face)
+
鐃緒申  ;; Given a selection, this makes an extent in the buffer which holds that
+
鐃緒申  ;; selection, for highlighting purposes.  If the selection isn't associated
+
鐃緒申  ;; with a buffer, this does nothing.
+
鐃緒申  (let ((buffer nil)
+
鐃緒申	(valid (and (extentp previous-extent)
+
鐃緒申		    (extent-buffer previous-extent)
+
鐃緒申		    (buffer-name (extent-buffer previous-extent))))
+
鐃緒申	start end)
+
鐃緒申    (cond ((stringp selection)
+
鐃緒申	   ;; if we're selecting a string, lose the previous extent used
+
鐃緒申	   ;; to highlight the selection.
+
鐃緒申	   (setq valid nil))
+
鐃緒申	  ((consp selection)
+
鐃緒申	   (setq start (min (car selection) (cdr selection))
+
鐃緒申		 end (max (car selection) (cdr selection))
+
鐃緒申		 valid (and valid
+
鐃緒申			    (eq (marker-buffer (car selection))
+
鐃緒申				(extent-buffer previous-extent)))
+
鐃緒申		 buffer (marker-buffer (car selection))))
+
鐃緒申	  ((extentp selection)
+
鐃緒申	   (setq start (extent-start-position selection)
+
鐃緒申		 end (extent-end-position selection)
+
鐃緒申		 valid (and valid
+
鐃緒申			    (eq (extent-buffer selection)
+
鐃緒申				(extent-buffer previous-extent)))
+
鐃緒申		 buffer (extent-buffer selection)))
+
鐃緒申	  )
+
鐃緒申    (if (and (not valid)
+
鐃緒申	     (extentp previous-extent)
+
鐃緒申	     (extent-buffer previous-extent)
+
鐃緒申	     (buffer-name (extent-buffer previous-extent)))
+
鐃緒申	(delete-extent previous-extent))
+
鐃緒申    (if (not buffer)
+
鐃緒申	;; string case
+
鐃緒申	nil
+
鐃緒申      ;; normal case
+
鐃緒申      (if valid
+
鐃緒申	  (set-extent-endpoints previous-extent start end)
+
鐃緒申	(setq previous-extent (make-extent start end buffer))
+
鐃緒申	;; use same priority as mouse-highlighting so that conflicts between
+
鐃緒申	;; the selection extent and a mouse-highlighted extent are resolved
+
鐃緒申	;; by the usual size-and-endpoint-comparison method.
+
鐃緒申	(set-extent-priority previous-extent mouse-highlight-priority)
+
鐃緒申	(set-extent-face previous-extent face)))))
+
鐃緒申
+
鐃緒申
+
鐃緒申(defun x-own-selection (selection &optional type)
+
鐃緒申  "Make a primary X Selection of the given argument.  
+
鐃緒申The argument may be a string, a cons of two markers, or an extent.  
+
鐃緒申In the latter cases the selection is considered to be the text 
+
鐃緒申between the markers, or the between extents endpoints."
+
鐃緒申  (interactive (if (not current-prefix-arg)
+
鐃緒申		   (list (read-string "Store text for pasting: "))
+
鐃緒申		 (list (cons ;; these need not be ordered.
+
鐃緒申			(copy-marker (point-marker))
+
鐃緒申			(copy-marker (mark-marker))))))
+
鐃緒申  (or type (setq type 'PRIMARY))
+
鐃緒申  (x-set-selection selection type)
+
鐃緒申  (cond ((eq type 'PRIMARY)
+
鐃緒申	 (setq primary-selection-extent
+
鐃緒申	       (x-select-make-extent-for-selection
+
鐃緒申		selection primary-selection-extent 'primary-selection)))
+
鐃緒申	((eq type 'SECONDARY)
+
鐃緒申	 (setq secondary-selection-extent
+
鐃緒申	       (x-select-make-extent-for-selection
+
鐃緒申		selection secondary-selection-extent 'secondary-selection))))
+
鐃緒申  selection)
+
鐃緒申
+
鐃緒申
+
鐃緒申(defun x-own-secondary-selection (selection &optional type)
+
鐃緒申  "Make a secondary X Selection of the given argument.  The argument may be a 
+
鐃緒申string or a cons of two markers (in which case the selection is considered to
+
鐃緒申be the text between those markers.)"
+
鐃緒申  (interactive (if (not current-prefix-arg)
+
鐃緒申		   (list (read-string "Store text for pasting: "))
+
鐃緒申		 (list (cons ;; these need not be ordered.
+
鐃緒申			(copy-marker (point-marker))
+
鐃緒申			(copy-marker (mark-marker))))))
+
鐃緒申  (x-own-selection selection 'SECONDARY))
+
鐃緒申
+
鐃緒申
+
鐃緒申(defun x-own-clipboard (string)
+
鐃緒申  "Paste the given string to the X Clipboard."
+
鐃緒申  (x-own-selection string 'CLIPBOARD))
+
鐃緒申
+
鐃緒申
+
鐃緒申(defun x-disown-selection (&optional secondary-p)
+
鐃緒申  "Assuming we own the selection, disown it.  With an argument, discard the
+
鐃緒申secondary selection instead of the primary selection."
+
鐃緒申  (x-disown-selection-internal (if secondary-p 'SECONDARY 'PRIMARY)))
+
鐃緒申
+
鐃緒申(defun x-dehilight-selection (selection)
+
鐃緒申  "for use as a value of x-lost-selection-hooks."
+
鐃緒申  (cond ((eq selection 'PRIMARY)
+
鐃緒申	 (if primary-selection-extent
+
鐃緒申	     (let ((inhibit-quit t))
+
鐃緒申	       (delete-extent primary-selection-extent)
+
鐃緒申	       (setq primary-selection-extent nil)))
+
鐃緒申	 (if zmacs-regions (zmacs-deactivate-region)))
+
鐃緒申	((eq selection 'SECONDARY)
+
鐃緒申	 (if secondary-selection-extent
+
鐃緒申	     (let ((inhibit-quit t))
+
鐃緒申	       (delete-extent secondary-selection-extent)
+
鐃緒申	       (setq secondary-selection-extent nil)))))
+
鐃緒申  nil)
+
鐃緒申
+
鐃緒申(setq x-lost-selection-hooks 'x-dehilight-selection)
+
鐃緒申
+
鐃緒申(defun x-notice-selection-requests (selection type successful)
+
鐃緒申  "for possible use as the value of x-sent-selection-hooks."
+
鐃緒申  (if (not successful)
+
鐃緒申      (message "Selection request failed to convert %s to %s"
+
鐃緒申	       selection type)
+
鐃緒申    (message "Sent selection %s as %s" selection type)))
+
鐃緒申
+
鐃緒申(defun x-notice-selection-failures (selection type successful)
+
鐃緒申  "for possible use as the value of x-sent-selection-hooks."
+
鐃緒申  (or successful
+
鐃緒申      (message "Selection request failed to convert %s to %s"
+
鐃緒申	       selection type)))
+
鐃緒申
+
鐃緒申;(setq x-sent-selection-hooks 'x-notice-selection-requests)
+
鐃緒申;(setq x-sent-selection-hooks 'x-notice-selection-failures)
+
鐃緒申
+
鐃緒申
+
鐃緒申;;; Random utility functions
+
鐃緒申
+
鐃緒申(defun x-kill-primary-selection ()
+
鐃緒申  "If there is a selection, delete the text it covers, and copy it to 
+
鐃緒申both the kill ring and the Clipboard."
+
鐃緒申  (interactive)
+
鐃緒申  (or (x-selection-owner-p) (error "emacs does not own the primary selection"))
+
鐃緒申  (setq last-command nil)
+
鐃緒申  (or primary-selection-extent
+
鐃緒申      (error "the primary selection is not an extent?"))
+
鐃緒申  (save-excursion
+
鐃緒申    (set-buffer (extent-buffer primary-selection-extent))
+
鐃緒申    (kill-region (extent-start-position primary-selection-extent)
+
鐃緒申		 (extent-end-position primary-selection-extent)))
+
鐃緒申  (x-disown-selection nil))
+
鐃緒申
+
鐃緒申(defun x-delete-primary-selection ()
+
鐃緒申  "If there is a selection, delete the text it covers *without* copying it to
+
鐃緒申the kill ring or the Clipboard."
+
鐃緒申  (interactive)
+
鐃緒申  (or (x-selection-owner-p) (error "emacs does not own the primary selection"))
+
鐃緒申  (setq last-command nil)
+
鐃緒申  (or primary-selection-extent
+
鐃緒申      (error "the primary selection is not an extent?"))
+
鐃緒申  (save-excursion
+
鐃緒申    (set-buffer (extent-buffer primary-selection-extent))
+
鐃緒申    (delete-region (extent-start-position primary-selection-extent)
+
鐃緒申		   (extent-end-position primary-selection-extent)))
+
鐃緒申  (x-disown-selection nil))
+
鐃緒申
+
鐃緒申(defun x-copy-primary-selection ()
+
鐃緒申  "If there is a selection, copy it to both the kill ring and the Clipboard."
+
鐃緒申  (interactive)
+
鐃緒申  (setq last-command nil)
+
鐃緒申  (or (x-selection-owner-p) (error "emacs does not own the primary selection"))
+
鐃緒申  (or primary-selection-extent
+
鐃緒申      (error "the primary selection is not an extent?"))
+
鐃緒申  (save-excursion
+
鐃緒申    (set-buffer (extent-buffer primary-selection-extent))
+
鐃緒申    (copy-region-as-kill (extent-start-position primary-selection-extent)
+
鐃緒申			 (extent-end-position primary-selection-extent))))
+
鐃緒申
+
鐃緒申(defun x-yank-clipboard-selection ()
+
鐃緒申  "If someone owns a Clipboard selection, insert it at point."
+
鐃緒申  (interactive)
+
鐃緒申  (setq last-command nil)
+
鐃緒申  (let ((clip (x-get-clipboard)))
+
鐃緒申    (or clip (error "there is no clipboard selection"))
+
鐃緒申    (push-mark)
+
鐃緒申    (insert clip)))
+
鐃緒申
+
鐃緒申;;; lselect.el ends here.