Mercurial > emacs
view lisp/obsolete/options.el @ 66704:768e9c3f6b5a
Commentary updated. Code formatting changed.
(newsticker-version): Changed to "1.9".
(newsticker, newsticker-feed): Doc fix.
(newsticker-url-list): Doc fix. Added option "Weekly".
(newsticker-retrieval-interval): Added option "Weekly".
(newsticker-headline-processing): Doc fix.
(newsticker-auto-mark-filter): Removed.
(newsticker-auto-mark-filter-list): New.
(newsticker-layout, newsticker-sort-method): Doc fix.
(newsticker-hide-old-items-in-newsticker-buffer)
(newsticker-heading-format, newsticker-item-format)
(newsticker-desc-format): Doc fix.
(newsticker-show-all-rss-elements): Removed.
(newsticker-show-all-news-elements): New.
(newsticker-faces, newsticker-ticker): Doc fix.
(remove-from-invisibility-spec): Code formatting.
(newsticker--process-ids): New.
(newsticker-mode): Doc fix.
(newsticker-mode): Changed mode-line-format.
(newsticker-start): Removed debug output.
(newsticker-start-ticker): Doc fix. Added Autoload cookie.
(newsticker-w3m-show-inline-images): Code formatting.
(newsticker-next-item): Call `force-mode-line-update'.
(newsticker-previous-item): Call `force-mode-line-update'.
(newsticker-next-feed): Call `force-mode-line-update'.
(newsticker-previous-feed): Call `force-mode-line-update'.
(newsticker-mark-all-items-at-point-as-read): Code formatting.
(newsticker-show-old-items): Do not show descs.
(newsticker-hide-entry): Hided too much.
(newsticker-hide-entry, newsticker-show-entry)
(newsticker-toggle-auto-narrow-to-feed): Code formatting.
(newsticker-set-auto-narrow-to-feed): Update buffer immediately.
(newsticker-toggle-auto-narrow-to-item): Code formatting.
(newsticker-set-auto-narrow-to-item): Update buffer immediately.
(newsticker-running-p, newsticker-ticker-running-p): Autoload cookie.
(newsticker-get-news): Call `force-mode-line-update'. Collect
process ids.
(newsticker--sentinel): Changed coding system handling. Moved
image retrieval to new functions newsticker--get-logo-url-*.
Moved feed parsing to new functions newsticker--parse-*. Update
list of process ids.
(newsticker--get-logo-url-atom-1.0, newsticker--get-logo-url-atom-0.3)
(newsticker--get-logo-url-rss-2.0, newsticker--get-logo-url-rss-1.0)
(newsticker--get-logo-url-rss-0.92, newsticker--get-logo-url-rss-0.91)
(newsticker--parse-atom-0.3, newsticker--parse-atom-1.0)
(newsticker--parse-rss-0.91, newsticker--parse-rss-0.92)
(newsticker--parse-rss-1.0, newsticker--parse-rss-2.0)
(newsticker--parse-generic-feed, newsticker--parse-generic-items): New.
(newsticker--decode-coding-string): Removed
(newsticker--decode-numeric-entities): Check input. Code formatting.
(newsticker--remove-whitespace): Check input.
(newsticker--do-forget-preformatted): Doc fix.
(newsticker--decode-rfc822-date): Allow for missing time.
(newsticker--update-process-ids): New.
(newsticker--image-sentinel): Changed comment.
(newsticker--image-read): Changed error message.
(newsticker--imenu-goto): Doc fix. Show headline title.
(newsticker--buffer-set-uptodate): Call `force-mode-line-update'.
(newsticker--buffer-do-insert-text): Clean whitespace in
html-rendered headline title. Code formatting. Call
`newsticker--buffer-print-extra-elements'.
(newsticker--buffer-print-extra-element): Removed.
(newsticker--buffer-print-extra-elements): New.
(newsticker--buffer-do-print-extra-element): New.
(newsticker--buffer-insert-enclosure): Doc fix. Use MBytes for large sizes.
(newsticker--run-auto-mark-filter)
(newsticker--do-run-auto-mark-filter): Use `newsticker-auto-mark-filter-list'.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Fri, 04 Nov 2005 15:15:39 +0000 |
parents | 5b1a238fcbb4 |
children | e8a3fb527b77 2d92f5c9d6ae |
line wrap: on
line source
;;; options.el --- edit Options command for Emacs ;; Copyright (C) 1985, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; 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, Inc., 51 Franklin Street, Fifth Floor, ;; Boston, MA 02110-1301, USA. ;;; Commentary: ;; This code provides functions to list and edit the values of all global ;; option variables known to loaded Emacs Lisp code. There are two entry ;; points, `list-options' and `edit' options'. The latter enters a major ;; mode specifically for editing option values. Do `M-x describe-mode' in ;; that context for more details. ;; The customization buffer feature is intended to make this obsolete. ;;; Code: ;;;###autoload (defun list-options () "Display a list of Emacs user options, with values and documentation. It is now better to use Customize instead." (interactive) (with-output-to-temp-buffer "*List Options*" (let (vars) (mapatoms (function (lambda (sym) (if (user-variable-p sym) (setq vars (cons sym vars)))))) (setq vars (sort vars 'string-lessp)) (while vars (let ((sym (car vars))) (when (boundp sym) (princ ";; ") (prin1 sym) (princ ":\n\t") (prin1 (symbol-value sym)) (terpri) (princ (substitute-command-keys (documentation-property sym 'variable-documentation))) (princ "\n;;\n")) (setq vars (cdr vars)))) (with-current-buffer "*List Options*" (Edit-options-mode) (setq buffer-read-only t))))) ;;;###autoload (defun edit-options () "Edit a list of Emacs user option values. Selects a buffer containing such a list, in which there are commands to set the option values. Type \\[describe-mode] in that buffer for a list of commands. The Custom feature is intended to make this obsolete." (interactive) (list-options) (pop-to-buffer "*List Options*")) (defvar Edit-options-mode-map (let ((map (make-keymap))) (define-key map "s" 'Edit-options-set) (define-key map "x" 'Edit-options-toggle) (define-key map "1" 'Edit-options-t) (define-key map "0" 'Edit-options-nil) (define-key map "p" 'backward-paragraph) (define-key map " " 'forward-paragraph) (define-key map "n" 'forward-paragraph) map) "") ;; Edit Options mode is suitable only for specially formatted data. (put 'Edit-options-mode 'mode-class 'special) (defun Edit-options-mode () "\\<Edit-options-mode-map>\ Major mode for editing Emacs user option settings. Special commands are: \\[Edit-options-set] -- set variable point points at. New value read using minibuffer. \\[Edit-options-toggle] -- toggle variable, t -> nil, nil -> t. \\[Edit-options-t] -- set variable to t. \\[Edit-options-nil] -- set variable to nil. Changed values made by these commands take effect immediately. Each variable description is a paragraph. For convenience, the characters \\[backward-paragraph] and \\[forward-paragraph] move back and forward by paragraphs." (kill-all-local-variables) (set-syntax-table emacs-lisp-mode-syntax-table) (use-local-map Edit-options-mode-map) (make-local-variable 'paragraph-separate) (setq paragraph-separate "[^\^@-\^?]") (make-local-variable 'paragraph-start) (setq paragraph-start "\t") (setq truncate-lines t) (setq major-mode 'Edit-options-mode) (setq mode-name "Options") (run-mode-hooks 'Edit-options-mode-hook)) (defun Edit-options-set () (interactive) (Edit-options-modify (lambda (var) (eval-minibuffer (concat "New " (symbol-name var) ": "))))) (defun Edit-options-toggle () (interactive) (Edit-options-modify (lambda (var) (not (symbol-value var))))) (defun Edit-options-t () (interactive) (Edit-options-modify (lambda (var) t))) (defun Edit-options-nil () (interactive) (Edit-options-modify (lambda (var) nil))) (defun Edit-options-modify (modfun) (save-excursion (let ((buffer-read-only nil) var pos) (re-search-backward "^;; \\|\\`") (forward-char 3) (setq pos (point)) (save-restriction (narrow-to-region pos (progn (end-of-line) (1- (point)))) (goto-char pos) (setq var (read (current-buffer)))) (goto-char pos) (forward-line 1) (forward-char 1) (save-excursion (set var (funcall modfun var))) (kill-sexp 1) (prin1 (symbol-value var) (current-buffer))))) (provide 'options) ;;; arch-tag: d18211a1-f3fb-48c9-a449-d5acde406a3c ;;; options.el ends here